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ABSTRACT 


The  present  study  is  a  continuation  and. extension  of  work  done 
during  1959  and.  i960  entitled  HA  Study  of  Piece  Part  Fault  Isolation  by 
Computer  Logic.'  '•  During  the  period  June  1961“  June  1962  the  emphasis 
has  been  on  automatic  checkout  of  Automotive  Systems  with  special  regard 
to  the  computer  controlled .  tank  checkout,  .system,  developed  by  the  Frankford 
Arsenal  and  on  an  extension  of  the  work  of  Berkowitz  in  network  element 
solvability* 


Section  A  on  Automatic  Programming  is  divided,  into  an  introduction 
followed  by  two  main  parts  and.  five  appendices..  The  first  of  the  main 


sections  discusses,  the  compiler.  pseudo-language,,  derived  from  the  language 
developed  for  the  Electronic.  Piece  Part  Fault  Analysis  system^  giving  a 
formal  specif ication  of  the.  syntax,  of  the  language  .and  showing  that  part 
of  it  is  a  general  algebraic  compiler  and.  part.  .is.  a  series  of  problem 
oriented  input^output  statements e-y  The  second,  main.,  section  discusses  the 

c~  — • 

compiler This  compiler  was  first  presented  in.  the  June  1961  report  of 
this  Project  and  the  present  discussion  describes  various  additions  and 
changes 0  Also  given  are  the  language  syntax  in  a  tabular  format  and  again 
in  a  machine<=oriented  matrix  format. 


Appendix  1  presents  a  discussion,  of.  the  ..methods  of  generating  the 
tabular  and  matrix  formulations  of  the  language  syntax.  Appendix  2 
presents  a  brief  discussion  of  a  set  of  symbolic  strings  used  by  the  first 
section  of  the  compiler  and  decoded,  ty  the  second,.  Appendix  3  discusses 
some  modifications  that  might  miake  the  compiler  more  efficient.  Ap» 
pendix  I4  gives  the  coding  of  some  of  the.  service  routines  for  the 
Libratrol“500  computer.  In  Appendix  5.  Part  1  is  a  short  manual  to  the 


x 


language,  giving  an  informal  presentation  that  might  be  the  basis  for  a 
training  manual  to.  be  written  at  some  later  date.. 

Appendix  Part  II,  gives  some  practical  .illustrations  of  the  use 
of  the  language. 

Section  B,  on  Circuit  Analysis  and  Network  Element  Value  Solva¬ 
bility  Studies  consists  of  the  Bedrosian  Pb.,D„  dissertation  on  Element 
Value  Solutions  of  Single-Element-Kind  Networks. 

In  this  stuc^r  the  work  of  Berkowitz  is  extended  by  finding  ex- 
plicit  solution  techniques  for  single-element-kind  networks.  This  in¬ 
cludes  a  computer  programmable  algorithm  and  discussion  of  various  rami¬ 
fications  . 

The  original  object  of  this  effort,  based  on  an  optimistic  at¬ 
titude,  was  to  consider  element  value  solvability  for  major  classes  of 
networks.  Subsequent  investigation  revealed  unexpected  subtleties  and 
inherent  difficulties  associated  .with  this  problem.  Consequently,  the 
work  has  been  restricted  to  the  treatment  of  single-element -kind  networks. 


Section  A.  Automatic  Programing 


I.  Introduction 

This  report  describes  the  work  done  on  automatic  checkout 
on  Pro  ject  ROTEK  from  June  .19*51  to  June  1962.  The  effort  was  devoted  to  a 
language  and  compiler  oriented,  toward.  Automotive  Systems  (tanks,  in  par¬ 
ticular)  with  the  Libratrol-500  to  be  used,  as  the  testing  computer  and  the 
compiling  computer  as  yet  unspecified. 

Work  was  divided  into  three  sections: 

Language,  development 

Further  work  on  the  compiler 

Writing  of  utility  programs  for  the  Libratrol-^OO 

'These  are  described  in  detail  in  the  succeeding  sections  of  this 

report.  Also  included  is  a  brief  manual  of  the  language  which  is  designed 

to  be  the  basis  of  a  larger:  training  manual .  At  various  places  in  this 

report,  reference  is  made  to  the  June,  1961  status  report.  This  is: 

Beckman,  et.  al.  Study  of  Piece  Part  Fault 
Isolation  by  Computer  Logic  -  Status  Report, 

June  1961,  The  Institute  for  Cooperative 
Research,  University  of  Pennsylvania. 
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II*  The  Compiler  Language 

The  language  presented  here  is  derived  from  FATAL  (see  June,  l?6l 
report)  and,  like  FATAL  is  based  upon  ALGOL-60.  It  is  divided  into  two 
sections:  an  algebraic  compiler  language  .and  a. series  of  special  state¬ 
ments  having,  to  do  with  input.,  and  output,  and.. .using  a  problem  oriented 
vocabulary* 

The  Basic  Algebraic  Compiler 

The  algebraic  compiler.,  is.  based. .upon.  ALGOL-60  and  as  put  forward 

here  is  probably  .more,  powerful  than  would.. actual ly.  be  required  for  an 

1  23  29 

automatic  checkout  system.  *  3  The  compiler  discussed  in  section  III 

of  this  report  is,  however,  independent  .of  ..the  input,  .or  output  languages 
and  will  just  as  readily  handle  any  reasonable . subset  of  the  language. 

By  reasonable  subset  we  mean  any  subset,  that  is  unambiguous  in  meaning  and 
in  definition.  And,  what  is  mo.,  e  important,  the  speed  and  efficiency  of 
compiling  is  dependant  upon  the  language  .used  .so.,  there  will  be  no  decrease 
in  efficiency  caused  by  hypothesising .a  more  general  language  than  will 
actually  be  used.  From  outward  appearances,,  this  part  of  the  language  looks 
quite  different  from  the  algebraic,  parts. of  FATAL.  These  differences  were 
due  to  an.  attempt. ..to.  make  the  language. as.  ..close,  to.  English  as  possible. 

There  are  those  in.  the  .computer,  field.. today,  who. .  are  .still  of  the  opinion 
that.  English  is.  a  good. .programming  language...  This. is.  not  so  and  it  should 
be  emphasized  that  the  unnecessary  .and.r.edun.dant....words  ..and  symbols  added  to 
the  language  increase  ease,  of .. understanding .  .at .  the  .cast  of  efficiency  of 
compiling.  Compare  our  VARI  statement  and...  FORTRAN  !s...  DO  statement  to  see 
an  example  of  this. 


As  in  last  year's  ..report,  the.  language,  .is  given  in  the  Backus 

Normal,  Form  (B„N»F.) „  The  formal  specification,  is.  prefaced  with  a  formal 

and  an  informal,  description,  of  how  the . Backus.  Normal.  Form  works.* **  The 

-following  specification .  is  meant  to.  .he  self-contained  and  can  be  used 

independent  of  the -rest  of  this  report. 

The  following  is  quoted  from  the  paper.  ” Specification  Languages 

for  Mechanical  Languages  and  .Their  Processors,  A. Baker's-. Dozen"  by  Saul  Gom 

A  Backus  syntactic  specification,  language  is  a  linear 
sequential,  language,  over  .an  alphabet... (infinite)  composed  of 
the.  following  symbols s 

a.  The  Bracket.  Symbols  '<'  and  *  >', 

b .  The  production  symbol  ' : s  =  * . 

c.  The  choice  symbol  1  |  '  . 

d.  Two  alphabets  called..' names'  and  ‘symbols'. 

Both  of  these,  alphabets  are.,  of  ten. -selections  of  words  from 
a  prior  alphabet  and  can  be  infinite  in  number  (but  not  in 
length) o 

The  individual  'names'  are  intended  to  denote  auxiliary 
languages  called  'syntactic  types '„of  the  language  being 
specified^  a  string  of  symbols  consisting  of  *  < '  followed  on 
the  right  by  a  name  and  then  followed  by  ’ >  *  is  intended  to 
designate  the  extent  of  the  name,.  i.e.  the  set  of  strings  in 
the  specified  language  of  which  it  is  the  name— or,  put  another 
way,  surrounding  a  name  by  these  brackets  is  an  operation  trans¬ 
forming  the  intent  designated  by  the  name  to  the  set  of 
processors  which  operate  on  it, 

-The  individual  '  symho.ls.'  ..are.  designated  strings  of  charac¬ 
ters  from  the  alphabet,  of  the  language-being  specified,  and 


*It  should  be  noted  that  B.N.F.  is  a.  Chomsky  .type-2  Phrase  Structure 
Grammar  and.  .languages.,  specif  led.  in... B.0N..F».  are  ..either  type-2  grammars 
or  can.  often  be,  made.  _so.  by  suitable,  minor  modifications.  There  is  a 
large  body  of  .literature.pertairing.to..  these.  suhjects  that  is  useful 

to  this  studyo^,^3®, 

**Comm»  of  the  A.C.M.  V.  U,  No.  12,  Dec.  l?6l,  p.  532. 
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often,  are  designations,  by  the,  oh.je.cts  themselves  of  aux- 
iliary  language,  with,  only  one.  word,,  namely  that  strings 
The  symbol  1  |  1  is  used.,  to  chain,  .together  alternative 
forms,  each  of  which  yields  composite  syntactic  types 
which  are  auxiliary  languages  formed  by  concatenation® 

Thus  a  symbol  concatenated  with  a  symbol  designates 
another  symbol,  a  bracketed  name  concatenated  with  a 
symbol  designates  the  set  of  words  obtained  by  concate¬ 
nating  that  symbol  with  each.. word,  of  the  set  designated 
by  the  name,  a  bracketed  name  concatenated  with  a 
bracketed  name  designates  the  'product  set1  of  all  strings 
designated  by  the  other® 

By  using  a  string  of  the  forms  'bracketed  name' 
concatenated  on.  the  .right  by  * :s=‘  concatenated  on  the 
right  by  'a  composite  name*  constructed  with  '  | 
bracketed  names,  symbols  and.. concatenation  we  obtain  in 
compact  form  a  set  of  production  rules  for  the  sub¬ 
language  designated  by  ..the  bracketed  name  at  the  extreme 
left  of  the  string® 

The  foregoing  quotation  is.  a  formal  definition  of  a  syntactic 
specification  in  the  Backus  normal  .form®.  A  few.  examples  are  given  here 
for  purposes  of  illustration®  Where  examples  are  taken  from  our  language 
the  source  is  shown. 

The  simplest  production,  rule,  consiats  of  a  bracketed  name  on  the 
left  of  a  i ;=  and  a  single  symbol  on  the  right i* 

< author  >  s  s=  SHAKESPEARE 

This  is  to  be  interpreted.!  wherever  the  name  ’author1  appears  in 
brackets  the  symbol  'SHAKESPEARE*  can  be  substituted  for  it®  The  symbol 
*'  |  '  is  interpreted  'or'®  We.  redefine  the  name  author  as 

<  author  >  i  i  =  SHAKESPEAR  |  MARLOWE  [.BACON  |  DRYDEN  |  MILTON 
which  means  that  the  name  ’author*  is  defined,  as.  the  name  of  the  class  which 
contains  {SHAKESPEAR,  MARLOWE,  BACON,  DRYDEN,  MILTON}  . 


*In  this  paper  we  use  lower  case  letters  for  names  and  upper  case  for 
symbols®  A  series  of  upper  case  letters  (as.!  SHAKESPEARE)  is  con¬ 
sidered  a  single  symbol  unless  explicitly  stated  otherwise. 


k 


It  is  possible  for  bracketed. names  to  appear  on  the  right  of  ;;= 

<  author  >s  8= < blind  author>  |  < elizabethan  author>|<17th  century  author> 
This  defines  Author'  as  the  name  of  the  class  which  contains  the  union  of 
the  classes!  -{blind  author,  elizabethan  author,  17th  century  author}  , 
These  classes  might  also  be  defined* 

< blind  author >8  8=  MILTON 

<  elizabethan  author  >  j  8=  SHAKE3PEAR  |  MARLOWE  |  BACON 
<17th  century  author  >  ;  8  =  DRYDEN  j  POPE  |  <  blind  author > 

If  we  define; 

<  opus>  %  s=  HAMLET  |  DUCHESS  OF  MALFI  |  PEYTON  PLACE 

and 

<  authorship  statement>  s ;  =  <  author >  WROTE  <  opus  >  „ 

We  can  generate  a  whole  series,  of  statements  by  substituting  the  symbols 
that  <author>  and  <opus>  name  into  the  given  statements. 

For  example: 

SHAKESPEARE  WROTE  HAMLET. 

BACON  WROTE  HAMLET. 

DRYDEN  WROTE  PEYTON  PLACE. 

MARLOWE  WROTE  DUCHESS  OF  MALFI. 

All  of  these  statements  are  syntactically  correct.  The  third  is,,  however, 
semantically  incorrect;  while  the  correctness  of  the  first  two  is  disputed. 

There  is  another  concept  to  be  considered:  that  of  the  empty  (or 
null)  set. 

Definition; 

<empty>  8  :  = 


*This  defines  an  authorship.. statement  as:  .a  member  of.  the  set  of  authors 
followed,  by  the  symbols  'WROTE'  followed,  .by  a  .member,  of  the  set  of  opera 
followed  by  a  period. 
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If  we  re -define! 


<opus>  ;  s=  HAMLET  |  DUCHESS  OF  MALFI  |  PEYTON  PLACE  |  < empty > 
then  the  following  statements  are  syntactically  (and  semantically)  correct: 

SHAKESPEARE  WROTE. 

MILTON  WROTE,  etc. 

For  the  concept  of  recursive  definitions, .take  an  example  from  the 
language  (1.A). 

If  letters  and  digits  are  defined  intuitively  as  primitive  concepts 
we  can  define: 

<symbol>  :  :=»  <letter>|<digit  > 

<symbol  string >:  :*<symb.ol>|< symbol  string >< symbol > 

<  symbol  string  >  is  defined  .in ...terms  .of.  itself  (i».e»  recursively)  this 
allows  the  building  up  of  a  symbol  string  of  any  length  containing  any 
combination  of  letters.  Starting  with  the  letter  R,  which  is  a  symbol 
string  by  the  first  part  of  the  definition  of  symbol,  string,  second  part 
of  the  definition  (which  says  that  a  symbol  string  is  any  symbol  string 
followed  by  any  symbol)  allows  the  formation, .of.  .the  string  Rl.  Again  by 
the  second  part  of  the  definition  R12;  then  R121;;  then  R12iiC;  then  R12UClj; 
then  R12ijCUl  and  so  on. 

The  syntax  of  the  name  ‘number1  is.  given,  by  a  combination  of 
definitions,  both  simple  and  recursive,  „(L*.B».l) »  The  simplest  form  of  a 
number  is  a  digit.  By  the  same  sort  of  recursive,  definition  used  for 
symbol  string  an  unsigned  integer,  is  .a.  series  of  digits  (of  any  length). 

A  decimal  fraction  is  an  unsigned  integer  precaeded  by  a  decimal  point; 
while  a  decimal  number  Is.  either  an.. unsigned-integer,  a  decimal  fraction 
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or  else  an  unsigned,  integer,  .followed,  by  .a  decimal  fraction  (ive»  3  or 
♦liil 39  or  else  3«lhl59) *  An  exponent  part  is  defined  as  10«-*  integer 
where  the  double  star  is  the  symbol  for  exponentiation  and  an  integer  is 
either  an  unsigned  integer  or  else  an  unsigned  integer  preceeded  by  either 
i +  J  or  *  -  »  „  An  unsigned  number  is  either  a  decimal  number,  an  ex¬ 
ponent  part  or  the  former  followed  by  the  latter  with  a  star  between  (star 
is  the  sign  for  multiplication) »  Finally,  a  number  is  either  an  unsigned 
number  or  an  unsigned  number  with  a  sign  before  it* 

In  this  manner  the  entire  syntax  of  the  language  is  defined  in 
terms  of  the  basic  symbols,  A  program. is  (by  the  rules  of  6  .A)  a  string 
of  these  basic  symbols  put  together  according  to  the  rules  of  the 
definitions  following. 
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1*  Symbols  and  Definitions 
1*A  Symbols 

<  symbol  >  :  i  -  <  letter >  j  < digit  > 

<  symbol  string  >  * j « < symbol >  | <  symbol  string >  |  < symbol > 

<  letter  >::="[ 

< digit  >  •  ’  =  J  d-ei'^neci  according  to  their  intuitive  meanings 

1«B  Numbers 
1*B*1  Syntax 

< number  >  :  s=<unsigned  number >  J  +  < unsigned. .number  >  |  »< unsigned  number  > 

<unsigned  number  >:  s=  <decimal  number >|<  exponent  part>| 

< decimal  numb.er>#<  exponent  part> 

< decimal  number >::=  < unsigned  integer>|< decimal  fraction>| 

<unsigned  integer>  < decimal  fraction> 

<unsigned  integer>  :  s  =  <digit>|<unsigned  integer >  <digit> 

<decimal  fraction > ! := *< unsigned  integer > 

< exponent  part>  ;  !e10*#<integer> 

<integer  >  j  :  =  <unsigned  integer  >| +<unsigned  integer >| -Cunsigned  integer> 
1.B.2  Semantics 

Any  number  of  the  forms  usually  associated,  with. decimal  numbers  can 
be  expressed.  The  exponent  part  is  shorthand  for  a  scale  factor  expressed 
as  an  integral  power  of  10* 

1*C  Comments 

At  any  point  in  a.  program,  the  programmer  may  put  a  comment  which 
consists  of  any  symbol  string  without  a  semi-colon.  This  will  be  ignored 
by  the  compiler.  Comments  are  of  us.e.  for  making  explanatory  notes  within 
a  program* 

<comment>  i  :=rC0MMENT:  <symbol  string>; 
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2.  Variables  and  Expressions 
2. A  Variables 
x  oyircax 

< value >  s  *  ■  <  number  >  [<  variable  name 

< variable  name  >  s.  *  *  <  simple  variable  >  |<  vector  >|<  matrix  > 

< simple  variable >  st=<  variable  identifier > 

<vector  >  s  t * < variable  identifier  > ( <  primary  > ) 

<matrix  >  s  s*  <  variable  identifier  >  (  <  primary  >  ,  < primary  >  ) 

<variable  identifier  >  j.  < letter  >  <  symbol  string> 

2aA„2 

The  term  variable,. name,  .is. ..used  to  denote  ,  a  quantity  referred  to  by 
name  rather  than  by  explicit  appearance,  and. which  is  able  to  take  on  a 
number  of  values.,,  In.  .this,  language,  as  . presently.- formulated,  there  are 
three  types  of  variable  .names,  .allowed;,  si  mpl  e.  variables,  vectors,  and 
matrices,,  A  vector  is  a  subscripted  variable  having  one  subscript  and 
a  matrix  is  a  subscripted... variable,  having  .two  subscripts .  C.f  „ ,  however, 
section  3«E»U„ 

Values  of  variable  names  can  be  changed,  by  set  statements  or  refer 
statements  (q„v„.) 

Although  any  string  of  letters,  is  syntactically  a.  legitimate  variable 
identifier,  the  use  of  the  names,  of  the.  standard.functions  (see  20B»UoC) 
should  be  avoided* 

2.  A.  3  Examples 

Simple  variables; 

X 

X3 

FOOF 

SUM 
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Vectors 


x(i) 

X(2) 

Y(i+i/2'*n) 

KW 

SOM  (SIN(3*Pl/2«n)) 

SUM2(9?) 

X(i, j) 

X(l,3) 

Y(X(i,j),C0S(Z(k))) 

1(27,2) 

SUM2 ( SIN  (X) , 3#ARG  TAN(THETA)) 

SUM2(1,5) 

2.A.U  Subscripts 

As  can  be  seen  from  the  above  examples. the. subscripts  of  vectors  or 

matrices  can  be  expressed  in  terms  of.  numbers, .of  other  variables  or 

arithmetic  expressions,  however,  the  actual . component  of  the  vector  or 

matrix  referred  to  is  specified  by  the  actual  numerical  value  of  the 

subscripts.  (If  this  numerical,  value  is  not  an  integer,  its  value  is 

taken, as.  .the.,  nearest . -integer. .not  .greater  than  ..the.  actual  value.  Only 

positive ,. (non-zero)  subscripts  are  defined.) 

If  a  subscripted  variable  is.  to.  be  used,.,  .it.  must  have  previously  been 

defined  by  a  dimension  statement  .  (q.  v.)  or  a. refer  statement  (q.v.). 

2.B  Arithmetic  Expressions 

2.B01  Syntax 

< adding  operator  >  $  s *  + |  - 
<multiplying  operator  >  ?  g=  *  |  / 

<memory  value  >?§*=<  number  >  |< simple  variable  > 

< function  name  >  * t=ABS  |  SIGN  |  SQRT  |  SIN  |  COS  |  AECTAN  |  LN  |  EXP  |  ENTIER  | 
MEDIAN  |  LOG  |  MEAN 

<function  expression  >  s  :=  < function  name  >(<  arithmetic  expression  >) 

< primary  >s  §=<memory  value  >|<vector>j<matrix  >| 

<procedure  call>|<function  expression>| 

(<  arithmetic  expression  >) 
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< factor  >  :  :-<  primary  >  <factor >  #*<primary> 

< terra >»t“<f actor >|< term >< multiplying  operator>  <factor> 

< arithmetic , expression^.:.** <tem>|<  adding  operator>  <tera>| 

<arithmetic„  expression Xaddlng  operator><term> 

2  Semantics 

An  arithmetic  expression  is  a  rule  for  computing  a  numerical  value. 

When  the  indicated  arithmetic,  operations  are  performed  on  the  actual 
numerical  values  of  the.  .primaries,  of.  the  .  expression  the  value  of  the 

expression  is  obtained. . For.  .variables.,  in.. an  . arithmetic  expression  the 

value  of  the  expression  is  obtained  from  the  current  value  while  for 
function  designators  it  is  the  value  arising  from  the  indicated  operation. 

For  arithmetic  expressions.. in.  parenthesis  .the... valua  must  be  expressed  in 
terms  of  the  values  of  the. .primaries. within  the  parenthesis.  A  memory 
value  is  a  .convenient  .special  case  . used. when  .there,  exist  non-subscripted 
variables.  In  this  case,  the  coding  generated  is  more  efficient. 

3  Examples 
Primaries  s 


1732*10**-3 

(3+Y*Z) 

x(l) 

X 

cos(X+3) 

X(3,7) 

omega 

(cos(X)+3) 

Y(3n+2) 

Factors  s 

l.l0i)**7 

cos(X+3)**Y 

X(i,j)**(3+K) 

ioLia-**Y 

cos((X+3)**Y) 

Terms: 

l.aiU**Y/cos(X+3) 

1 ,aia**Y/( cos (x+3) *z 

(a/b)*g 

(1  .Ua**Y/cos  (X+3)  )  *Z 

A/B 

A/(B*C) 

Arithmetic  Expressions: 

+ln(3-Y) 

C*D+B**a 

-(A+B) 

3+a*cos(3+T) 

2,B,k  Operators  and  Functions 
2,B.l|.a  Definitions 

The  operators  +,  -,  and  /  have  their  conventional  meaning 
(addition,  subtraction,  multiplication,  and  division).  The  symbol 
is  used  to  symbolize  exponentiation.  In  the  operation 
< factor > ##  <primary>  the  factor  is  the  base  and  the  primary  is  the 
exponent . 

F or  example \ 

b  c 

a##b#*c  means  (a  ) 

(  ) 

a-::-:r(  b**c)  means  a' 

2,B.ii.b  Precedence 

The  following  rules  of  precedence  of  evaluation  hold: 

first:  ## 

second:  */ 
third?  +  - 

These  follow  from  the  definitions  in,2.B.l. 

2,B.i*..c  Standard  Functions 

Various  standard  functions  are  expressed  in  abbreviated  notations; 
several  of  these  ares 

ABS(E)  The  absolute  value  of  expression  E 

SIGN(E)  The  signum  of  E(+l  if  E>0,  -1  if  ECO,  0  if  E-  0) 

SQRT(E)  The  square  root  of  E 

SIN(E)  The  sine  of  E 

COS(E)  The  cosine  of  E 

ARCTAN(E)  The  principal  value  of  the  arc  tangent  of- E 

LN(E)  The  natural  logarithym  of  B:  log  (E) 

LOG(E)  The  logarithym  to  the  base  10  of  E:  log^(E) 
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EXP(E) 
ENTIER(E) 
MEDIAN (E) 


MEAN(E) 


E 

The  exponential  of  Es;  (e  ) 

largest  integer  not  greater  than  E 

a.  If  E  has  no  free  subscripts,  MEDIAN  (E)  =  E 
ba  If  E  has.  one  free .  subscript,  then,  if  the  values  of  E 
be  arranged,  in.  order  of  magnitude i 
1*  MEDIAN (E)  is.  equal-  to.. the  value  in  the  central 
position  (if  the. greatest  value  of  the  subscript 
is  odd)0 

2 a  MEDIAN(E)  is  equal  to  the  mean  of  the  two  values 
nearest  to  a  central  position  (if  the  greatest 
value  of  the  subscript  is. even) a 
c0  If  E  has.  more.  than,  one.  free  subscript,  MEDIAN  (E)  ■  0 

a«  If  E  has  no  .free.  subscripts,  MEAN(E)  ■  E 

b«  If  E  has.  one.  free,  subscript,  then,,  if  n  is  the  greatest 

value,  of .  this. subscript,.  MEAN(E). »  (E(l). ♦  E(2)  +  aaa+  E(n))/n. 
c.  If  .  E  has.  more  than.  one.. free.,  subscript  MEAN(E)  ■  0 


E  may,  he.  any.  arithmetic  expression* 


L 
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Basic  Statements 


3.A  Let  Statement 
3.A.1  Syntax 

<equation>  ::=< variable  name >  s=< arithmetic  expression> 

< equation  list  >  ;  r = < equa:b±on>j<  equation  list  ,  <  equation> 

<let  statement  >  s  :* LET  < equation  list>  } 

3.A.2  Semantics 

The  let  statement  is.  used  for  computations. 

For  examples 

LET  X j *3*C0S(.THETA) /SIN (SQjRT  (PHI)), 

Sum!=2-«X  5/X#*Z, 

X(i+l) s=X(i) +  Y(  j)$ 

3»B  Transfer  Statement 

3.B.1  Syntax 

<  location  >  * :  ■  <  proc  edure  .  call  >  |  <  statement  label  > 

<  transfer  statement  >  :  »=  GO  TO  <  lo cation >  j  |  HALT  <  location 

3.B.2  Semantics 

The  GO  TO  transfer  can  be  used  for  a  jump  or  unconditional  transfer 
of  control.  The  HALT  is  the  same  except  that  the  computer  stops  before 
transferring. 

If  transfer  is  made  to  a  statement  (identified  by  a  label),  this 
statement  must  be  in  the  procedure  being  run  at  the.  time.  Transfer  may 
be  made  to  another  procedure.  This  is  discussed  ..in  iuB  and  the  syntax 
of  <procedure-.call>  is  given  in  U«A. 

3.C  Condition  Statement 
3.C.1  Syntax 

< relation >:*=<  |  <  I  *  f  ^  I  >1  / 
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<condition>  :?  =  < primary >  <relation>  <  primary  > 

<condition  part>  %  s=  <  condition >|<condition  part>  AND  <condition> 

<condition  list>  :  s*  <condition>  |  (  <  condition  part>  ) 

<condition  list >  OR  < condition  list> 

<statement  list >  ;  s  =  <  statement  > |  < statement  list>  <statement> 

<end  >  %  i *  .  | .  < symbol  string  > 

<condition  tail>  s  s  **  < statement  list>  <end>| 

<statement  list>  ELSE  < statement  list>  <end> 

<condition  statement>  s  s*IF  <condition  list >  THEN < condition  tail>  ; 
3oC°2  Semantics 

A  condition  statement  is  of  one  of  the  two  forms: 

a.  IF  (some  combination  of  conditions  is  fulfilled)  THEN  (do  something) 
EISE  (do  something  else), 

b.  IF  (some  combination  of  conditions  is  fulfilled)  THEN  (do  something). 
In  the  first  case,  if  the  conditions  are  fulfilled,  the  list  of 

statements  following  the  THEN  are  performed  and  the  list  following  the 
ELSE  is  skipped.  If  the  conditions  are  not  fulfilled,  the  list  following 
the  ELSE  is  performed  and  the  one  following  the  THEN  is  omitted.  In  the 
second  case,  if  the  conditions  are  not  fulfilled,  control  is  transferred 
to  the  next  statement  following  the  condition  statement. 

The  condition  list  is  made  up  of  combinations  of  simple  conditions 
of  the  form: 

<  primary >  <relation>  <primary>  . 

Some  examples: 

a>b 

D(2,3)  12 
J**2/-l 
3<  A+B(  j) 

SIN(THETA*2*PI)  -  C  OS ( 0MEGA/2*PI ) . 


The  syntax  of  condition  list  allows. the  joining  of  these  simple 
relations  into  more  complex,  forms,.  .A  condition,  part  can  be  any  string 
of  conditions  connected  hy  AND.  For  examples 

a >b  AND  D(2,3)^2  AND  «J**2  f  -  1  AND  ... 

This1  is.  Scatisfied.  if.,  and.,  only  ..if  each  of  the  .individual  conditions  is 
satisfied.  A  condition. part  in  parenthesis. .is.. a. .condition  list  and  can 
be  used  in  a  condition  statement* 

It  is  also,  possible  ...to  .combine  two...  or.  more  condition  lists  by 
stringing. them. .along ..with.. OR.. separating  them..  .  In  this  case  the  ex¬ 
pression  is  satisfied  if  and  only  if  at. least  one  of  the  constituent 
conditions  is  satisfied.  For  examples 

(a>b  AND  b^c)  OR  J**2/-l  OR 
(A(l,  j)  *  B(  j+3)  AND  C-0)  OR..* 

The  statement  list  may  consist  of  any  combination  of  statements  and 

ends  in  a  period.  A.  comment  may  be  added  after  the  period  if  desired 

without  the  necessity.. of  writing  "COMMENT:" 

3.C.3  Examples; 

IF  (a>b  AND  c<d+l)  OR  (a  -  0  AND  d- 1  =  0)  THEN 

GO  TO  S3;  ELSE  LET  d: =  d+1;  GO  TO  Sis;  represents* 


^  a>b?  I- 

> 

fcn 

> 

t 

Cl; 

oTT 

a>b?l--  -M  c<  d+r|-£ — > 


n 


-HS3 


d+l-*di - HS. 


IF  a-0  OR  a >10#*9  THEN  GO  TO  EXIT;  .;  represents* 
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Continue  in 
sequence 


IF  i>k  THEN 

IF  j >i  THEN  LET  is  *i  +  l  }  .  CASE  1; 

ELSE 

IF  j >i  THEN  LET  ELSE  LET  ij=k;  .  CASE  2j  represents 


"CASE  1"  and  "CASE  2"  are  comments  added  for  mnemonic  purposes. 

3.D  Vary  Statement 
3.D.1  Syntax 

Clover  limit >  ::  =  <primary> 

Cupper  limit  >  s  s*  Cprimary > 

Cinerement  >  s  s  *  Cprimary> 

Cstatement  list >::=  Cstatement>|C statement  list>  Cstatement> 

Cvary  by  steps  >  :  s  = 

VARY  C  variable  name  >  FROM  Clover  limit  > 

BY  C  increment  >  UNTIL  Cupper  limit> 

IN  C  statement  list  >  C  end  > ; 

Cname  list>  s  s=  Cvariable  name>|Cname  Hst>  ,  Cvariable  name> 

Cvary  list >  : s-C value >|C vary  list>,  C  value > 

C compound  vary  list>  ::■*(  Cvary  list  >)|C compound.. vary  .list >  (C  vary  list>) 
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<end>  1 1*  .  |  .  <  symbol  string> 

<vary  by  list>:s» 

VARY  <  name  list  >  OVER  <  compound  vary  list> 

IN  <  statement  list><end>j 

<vary  statement>  ss*<vary  by  steps>|<vary  by  list> 

3JD.2  Semantics 

The  first  vary  statement  will  cause  the  value  of  a  variable  in  a 
.  specified. .list.  of.  statements,  to,. be. modifi.ed.hy. increments  over  a  given 
range.  The  second  .vary,  statement  . will  . cause  .one  or  more  variables  to 
be  varied-each  .over.its.  own.  specified  list  ...of.  values.  It  is  possible 
for  the  statement  list  of  one  vary  statement  to  contain  another  vaiy 
statement.  A  period  ends. the  statement,  list .  of  a  .vary  statement.  As 
before,  a  comment  (not  containing  a  semi=colon)  jnay  be  inserted  after 
the  period  for  purposes  of  explanation. 

3.D.3  Examples 

VARY  X  FROM  0  BY  10  UNTIL  300  IN 
IF  X*  Z  THEN 
GO  TO  TEST  2;  .)  .$ 

In  this  example,  Z  is  some  previously  defined,  simple  variable  and 
the  simple  variable  X  is  varied  by  steps  .of  ID  from  0  to  300  in  the 
condition  statement  "IF  X“.Z...THEN  GO.. TO.  TEST  2;  .j".  The  flow  chart 
for  this  is* 
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The  general  form.  of.  a. vary  by  steps  statement  is 


lower  limit  — > 
_ dummy  location 


-H  (dumpy)  >  upper  limit?] - > 

F 

statement  list 

1 


Tdummyj*  increment  — »  dummy 


The  limits  and  increment  do  not  have  to  be  constants i 

VARY  i  FROM  a  BY  ((a-b)/lC0)  UNTIL  b  IN 
IF  3*i**2  > 10  THEN 
LET  c :  =  i  ; 

GO  TO  S9i  .}  .  END  OF  i  LOOP; 

A  compound  vary  statement: 

VARY  i  FROM  1  BY  1  UNTIL  10  IN 
VARY  j  FROM  1  BY  1  UNTIL  i  IN 
IF  X(i, j) B  0  OR 
ABS(X(i,  j))  >10**6  THEN 
GO  TO  ERROR;  »; 

can  be  represented: 


1  ->•  i  h-* 


i  >10? 


continue 


n 


ls±A 


n 


xTi,  ,i)  *  o  h 


n 


ABS(X(i,;i)')>10fc*6? 


y 


ERROR 


— ~f  .1  »  1  j 


' — 1  i  +  1  ->  i  fc- 
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wherein  the  symmetric  matrix  X.  .  is  taken  tern  by  term  (actually,  only 
those  terms  along  or  above  the  main  diagonal  -are  ..considered)  and  if  any 
term  equals  O  .or.  is  greater  in  magnitude  than  .10° ,  control  is  transferred 
to  ERROR* 

In  a  vary,  by  list.. statement,  .variables  are., ranged  over  lists.  For 
example : 

VARI  K,  X,  Z  OVER  (l,.2,  3)  (A,  B,  C)(lQ**2),  10**3>  10)  IN 
LET  P(k)  :=  Z*Xj  .$ 

This  statement  will  perform  the  following  operation: 

LET  P(l)s=L0**2*A 
P(2):=10**3*B 
P(3)s=10*C,‘ 

3.E  Dimension  and  Refer  Statements 
3.E*1  Dimension  Statement  Syntax 

< vector  limit >  s <variable  identifier  > ( < unsigned  integer  > ) 

<  matrix  limit  variable  identifier  > 

(<  unsigned  integer  >,< unsigned  integer  >) 

<  subscript  limit  >  ::=<  vector  limit  >|<  matrix  limit > 

< dimension  list>  s  tm  <subscript  limit  >| 

<dimension  list>  ,< subscript  limit > 

<dimension  statement>  :  ^DIMENSION  < dimension  list>  ; 

3«E*2  Refer  Statement  Syntax 

<vector  identifier  variable  identifier  > 

< value  list  > .: : c  < value  >  |  <value  list  >  ,  < value  > 

<pair  >  :  :=  <value  list  > AS  < vector  identifier>| 

< value > AS < variable  identifier > 

<pair  string >  :s=  <pair>|<pair  string >,  <pair> 

<pair  part  >  :  :=  <pair  string>AND  |<empty> 

<pair  list  > :  :=  <pair  part>  <pair> 

<refer  statement  > :  :=REFER  T0<pair  list>  } 
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3.E.3  Semantics 

The  dimension  statement.. is.. used. .t,o.  allocate. storage  fox'  vectors 
and  matrices, 

For  example  if  a  program  used  the  matrices  SUM  (i,  j)  and  A  (r,t) 

(where  l^i^lO,  i^j^203  l^r^3  and  l^  t^  200)  and  the  vectors 
PRESS  (k)  and  TEMP  (s)  (where  l^k.^30  and.  l$s.^3)»  then  the  following 
statement  woulcLappear.  in  the  program  (this. .must,.. of  course  come  before 
the  use  of  any  of  the  dimensioned  names) : 

DIMENSION  SUM  (10,  20),  A  (3,  200),  PRESS  (30),  TEMP  (5); 

The.  refer  statement,  has  ..two.  uses.,  .one  ..is.  .to.  allow.  ..the  name  of  a  vari¬ 
able  or  set  of  variables  to  be  clanged  and.  the.  second. .to  allow  a  series  of 
values  of  variables  or  constants  to  be  combined  into,  a  single  vector  for 
ease  in  reference.  When  a  sinple  variable  or  an  entire  vector  or  an 
entire  matrix  .is.. renamed  by  a  refer  statement,.. „the_..original  variable  name 
becomes  undefined  and  may  be  re-assigned  at  will. 

For  example,  the  following  refer  statement  will  put  the  combination 
of  values  of  variables  X(l,l),  Y(l,l),  Z(3),  ALPHA  and  13.73  into  a 
vector,  V: 

REFER  TO  1(1,1),  Y(l,l),  Z(3),  ALFHA,  13.73  AS  V$ 

The  statement 

REFER  TO  X  AS  X,  PRESS  AS  FOOF  AND  GEE.  AS.  GBW;.  will  give  X,  PRESS  and 
GEB  the  new  names  I,  FOOF,  GBW  respectively..  X,.  PRESS,  and  GEB  could  be 
simple  variables  or  arrays.  The  equivalents  would,  have  the  same  dimension. 

3.E.1*  General  Subscripting 

For  the  system  as  proposed,  compilation  time  will,  be  decreased  (at  the 
cost  of  decreased  generality  and  wasted  storage)  by  .limiting  arrays  to  two 


subscripts.  Below  is.  a.  re£ormnlation...of  .Dimension  ..using  the  name  ARRAY 

to  identify  a. matrix,  of  any  dimension. 

<array  limit >  8:=  <arithmetic  expression> 

<limit  list > s j= < array  limit >|<limit  list  >,<  array  limit > 

<array  segment  >  j  < variable  identifier  >  (  <  limit  list  >)  I 

< variable  identifier > 

<array  list  >  s  s*  < array  segment >|< array  list>  ,  < array  segment> 

<array  statement  > : :CARRAY < array  list  > } 

In  this  case,  the  array  statements  do  not  have  to  appear  at  the 

beginning  .of  .a  .program -bu.t  may  appear,  .anywhere.  Note  that  this  implies 

dynamic  storage  allocation.  If  ..this,  feature.,  is  not  required,  use 

<  array  limit  >  *.**<  unsigned  integer  > 

The  dynamic,  storage,  alio  cat  ion... iiplies..the..us.eof  such  concepts  as 

global  and.  local  variables  and  ..block,  structure. ..  We  attempt  to  gain  some 

of  the  advantages,  of  ..this,  .through.,  the,  use  ..of .  the.  RET  EASE  psuedo-statement 

(c.f.  3.1). 

3.F  Type  Declarations 
3.F.1  Syntax 

<  identifier  liat  >  <  variable  identifier>j 

<  identifier  list  >  ,  <  variable  identifier  > 

< declaration >  »  * “INTEGER  < identifier  list  > } j 

INTEGER  VECTOR  <  identifier  list>  ;| 

INTEGER  MATRIX  < identifier  list  >  }  \ 

3.F.2  Semantics 

In  general,  variables  name  floating  point,  numbers.  The  use  of  an 
INTEGER  declaration  will  make  the  value  of.  the  variable  an  integer  which 
will  be  stored  at  some  fixed  magnitude  in  memory,.  INTEGER  VECTOR  and 
INTEGER  MATRIX  serve  to  make. .all. .the.  values. _of  a.  vector  or  of  a  matrix 
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integers .  Declaring  a  variable  used  in  a  subscript  to  be  an  integer  will 
facilitate  the  finding  of  the  value  desired. 

Variables  of  either  type  (integer  or  floating  point)  may  be  used  in 
any  equation.  The  type  of  the  result  is  the  type  of  the  variable  found 
on  the  left  of  the  . 

3.G  Dummy  Statements 
3.G.1  Syntax 

< dummy  statement  >  s : s 
3.G.2  Semantics 

A  dummy  statement  is  occasionally  useful  for  labelling  the  end  of 
a  procedure. 

3.H  Code  Statements 
3.H.1  Syntax 

<code  statement>  s s=C ODE < symbol  string>END; 

3.H.2  Semantics 

If  it  is  wished  to  include  a  block  of  computer  coding  (numerical  and/or 
symbolic)  in  the  program,  it  can  be  placed  between  "CODE"  and  11  END 5"  and  the 
compiler  will  pass  it  through  unchanged,  N.B.:  the  symbol  string  "END;" 
must  not  appear  within  the  block  of  coding  or  the  compiler  will  take  that 
to  the  end  of  the  block. 

3.1  The  Release  Statement 
3.1.1  Syntax 

<identifier  list>  ;;=•< variable  identifier>| 

Cidentifier  list>  ,< variable  identifier> 

<release  statements*  J  {“RELEASE < identifier  list>  ; 
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3.1.2  Semantics 

This  statement  is  actually  a  pseudo-statement  since  it  will  generate 
only  pseudo-operations  for  the  assembler.  It  is  used  to  conserve 
storage...  when  a  section  of'  the  program  is  finished  with  some  simple 
variable,  vector,  or  matrix,  the  use  of  RELEASE  will  permit  the  memory 
used  for  that  variable,  vector,  or  matrix  to  be  reassigned. 
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U »  Procedures  and  Program 
U.A  Syntax 


< unlabelled  statement> s :=  <code  statement>  | <condition  statement>| 

<declaration>  |<dimension  statement>| 

<dummy  statement>| <  let  statement>| 

<read  statement>  |<  refer  statement>| 

<release  statement>|  <set  statements  | 

<special  statement> | < transfer  statement>l 
<vary  statement> 

<statement  label>  ss=  <letter>  < symbol  string> 

<statement>  s  s=  <statement  label> :  < unlabelled  statement>  | 

<unlabelled  statement> 

<statement  list>  : ?=  <statement>  |< statement  list>  <statement> 

<procedure  name  list>  %  s  =  < function  name>  J  <procedure  identifier>| 

<  function  name>  ,  <  procedure  name  list>| 
<procedure  identifier  >,  <procedure  name  list> 

Subroutine  list>  s  s=  (<  procedure  name  list>)  |E 

<variable  list>  s  s  =  < variable  name>|<variable  list>  ,  <  variable  name> 
<formal  parameter  list>  s  s  =  (  < variable  list>)|E 

<proceaure  heading>  s s=  <formal  parameter  list>  ,< subroutine  list> 

<procedure  identifier>  s  ;=  <letter>  <symbol  string> 

<procedure>  s  s  =  PROCEDURE<procedure  identifier> 

<procedure  heading>  < statement  list>END 

<procedure  sequence>  s  s=  <procedure>  |<procedure  sequence>  < procedure > 

<program>  s  §=START<procedure  sequence>  STOP 

<parameter  >  t  ?=< variable  name>  |< arithmetic  expression> 

<actual  parameter  list>  s  ;=  <parameter>  | 

<actual  parameter  list > ,  < parameter > 

<procedure  call>  s  s=  <procedure  identifier>  (  <actual  parameter  list>)j 
];  ,B .  Semantics  and  Examples 

A  complete  program  begins  with  START  and  ends  with  STOP.  Between 
these  delimiters  there  may  be  several  procedures,  each  with  END  to  denote 
its  finish.  It  is  possible  for  one  procedure  to  call  upon  another  as  a 
subroutine.  If  this  is  to  be  done,  each  procedure  to  be  called  is  named 


in  the  heading  of  the  calling,  procedure .  It  is  emphasized  that  all 


varxetH.es.  farst.  mentioned  .withan  a  procedure  *1  *"n1  to  that  procedure 


and  if  used.by  another  procedure,  (except,  .as  ..allowed  by  the  following) 


are  treated  as  completely  new  names.  The  exception  to  this  rule  is  in 
the  case  of  a  procedure  being  used  as  a  subroutine.  The  sub-procedure 
may  refer  to  any  variables  of  the  super-procedure. (but  not  vice  versa) 
which  are  mentioned  in  the  procedure  call.  The  symbolic  assembly 
program  will  take  care  of  this  detail. 

Consider  the  following  procedure  which  will  transpose  a  given  matrix. 
It  is  assumed  that  this  procedure  is  to  be  used  only  as  a  subroutine  and 
the  matrix  to  be  transposed  is  to  replace  the  original  matrix* 

PROCEDURE  TRANSPOSE  (n,  m),  E; 

COMMENT:  n  is  the  order  of  the  matrix  to  be  transposed,  and 
M  is  the  matrix  itself; 

INTEGER  i,  j; 

VARY  i  FROM  1  BY  1  UNTIL  n  IN 

VARY  J.  FROM  i  BY  1  UNTIL  n  IN 

LET  TEMP:“M(i,  j), 

M(i,  j):«  M(  j,  i), 

M(j,i)i-  TEMP;  .END  j  LOOP;  .END  i  LOOP; 

COMMENT:  This  routine  is  actually  short  enough  not  to  need  to  be 
used.  as.  a.  subroutine,  ...but  . it.will.  do  for  illustrative 
purposes;  END 

In  the  above  procedure,  the  variables  i,  j  and  TEMP  are  local  to  the 
subroutine  and  if  the  symbolic  names  "i",  "j"  or  "TEMP"  were  used  by 
another  routine,  they  would  have  an  entirely  different  meaning.  If  it 
were  now  necessary  to  use  this  procedure  as  a  subroutine  the  entry  to 
the  subroutine  might  be  by  a  procedure  call  of  one  of  the  following  forms: 
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a. )  TRANSPOSE  (n,  M)| 

b. )  TRANSPOSE  (23,  a)$ 

c. )  TRANSPOSE  ((c+d)/e,  L)$ 

In  a  procedure  heading,  the  variables  are  really  dummy  variables  and, 

upon  operation,  the  true  values,  i»e»  those  in  the  procedure  call  are 

used.  In  a.)  above,  the  values  of  n  and  M  in  the  subroutine  are  those 
found  in  the  super|  in  b.)  n  is  set  to  23  and  the  values  for  M  are  taken 
as  the  values  of  the  matrix  a  (which  must  have  been  defined  in  the  super 
program) |  and,  in  c„)  n  is  set  equal  to  the  value  of  (c  +  d)/e  (where 
c,  d,  and  e  must  be  defined  in  the  super  program)  and  values  for  M  are 
taken  from  the  values  of  the  matrix  L. 

The  following  rather  lengthy  program  is  for  inverting  a  matrix 

PROCEDURE  INVERT  (A,  n,  s,  Al) ,  Ej 

COMMENTS  1.  This  program  is  a  translation  from  the  original  ALGOL 
of  Algorithm  1*2  by  T.  C,  Wood,  published  in  the 
April  1961  issue  of  COMM.  A.C.M.  (p,  176) . 

2 „  This  procedure  inverts  the  square  matrix  A  of  order  n 
by  applying  a  series  of  elementary  row  operations  to 
the  matrix  to  reduce  it  to  the  identity  matrix.  These 
operations  when  applied  to  the  identity  matrix  yield 
the  inverse  Al.  The  case  of  a  singular1  matrix  is 
indicated  by  the  value  ss=l  (upon  exit), 

3 .  A  and  Al  are  arrays  that  must  have  been  previously 

dimensioned,  s  and  n  were  previously  declared  integer. 

k°  This  program  uses  variable  size  arrays.  If  these  were 
not  allowed,  an  integer  would  be  substituted  for  nj 

DIMENSION  a(n,2-*n)|,  INTEGER  i,  k,  m,  ind| 

COMMENTS  Augment  matrix  A  with  the  identity  matrix§ 

VARY  i  FROM  1  BY  1  UNTIL  n  IN 

VARY  j  FROM  1  BY  1  UNTIL  2*n  IN 

IF  j^n  THEN  LET  a(i,  j)s«A(i,  j)|  ELSE 

IF  j-  n+  i  THEN  LET  a(i,  j)s=  1.0$  ELSE 
LET  a(i,  j))s»  0.0$  .|  .$  . 
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END  j  LOOP |  , 

END  i  LOOP | 

COMMENTS  Begin  inversion^ 

VARY  i  FROM  1  BY  1  UNTIL  n  IN 
LET  js=i,  ms=i,  inds=0,  ss=Oj 
Lis  IF  a(m,  j)=0  THEN 
LET  inds=>l$ 

IF  m<n  THEN 
LET  ms=m  +  1| 

GO  TO  Ll| 

ELSE  LET  ss=l| 

GO  TO  L2|  .|  .$ 

IF  ±nd=l  THEN 

VARY  k  FROM  1  BY  1  UNTIL  2*n  IN 
LET  TEMPs  =a( m,  k) , 
a(m,  k)s=a(i,k) , 
a(i,  k)  s«TEMP|  END  k  LOOP| 

VARY  k  FROM  2*n  BY  -1  UNTIL  i  IN 
LET  a(  i,  k)  s- a(i,  k)/a(i,  i)  j  .5 
VARY  m  FROM  1  BY  1  UNTIL  n  IN 
IF  m^i  THEN 

VARY  k  FROM  2*n  BY  -1  UNTIL  i  IN 

LET  a(m,  k)s=a(m,  k)-a(i,  k)*a(m,  i)  5  .$  . 

END  i  LOOP | 

VARY  i  FROM  1  BY  1  UNTIL  n  IN 
VARY  j  FROM  1  BY  1  UNTIL  n  IN 
LET  Al(i,  j)s«a(i,  n+j)$ 

L2s |  END 

Two  examples  of  programs  in  the  English-based  algebraic  compiler 
language  are  given.  In  all  cases,  the  first  comment  gives  the  source 
of  the  routine. 
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a.)  Exponential  of  a  complex  number 

PROCEDURE  EXPC  (a,  b,  c,  d) ,  (EXP,  SIN)| 

COMMENTS  1.  By  John  Ec  Herndon,  Algorithm  46,  from  Comm.  A.CJri,, 
April  1961. 

2,  This  procedure  computes  the  number  c+ di,  -which  is 

,  .  (a+  bi) 

equal  to  e  % 

LET  c  s  =  EXP(  a )  j 
LET  ds«c*5IN(b)s 

ca*c*COS(b);  END 

bo)  Logarithm  of  a  complex  number 

PROCEDURE  LOGC  (a,  b,  c,  d),  (SORT,  ARCTAN,  LN)$ 

COMMENT?  1,  Same  author,  same  source,  Algorithm  I48. 

2 .  This  procedure  computes  the  number  c  +  di  which  is 
equal  to  log  (a+  bi)j 

LET  es=SQRT  (a*a  +  b*b ) % 

LET  ds* ARC  TAN  (b/a), 

cs=LN(c)| 

IF  a<0  THEN  LET  ds=d+  3.1i)l?927s  .j  END 

c„)  An  example  of  a  complete  program  with  input  and  output.* 

This  program  will  read  in  a  10  x  10  matrix  from  tape  (or  card) 

invert  it  and  print  the  result  on  the  typewriter.  We  assume  the 

existance  of  three  procedures  in  machine  languages 

PROCEDURE  READ(R)  will  read  in  one  number  in  decimal,  convert 
it  to  binary  and  leave  it  in  location  R„ 

PROCEDURE  WRITE(W)  will  take  one  word,  convert  it  to  decimal 
and  print  it  on  the  typewriter. 

PROCEDURE  NEWLINE  will  return  the  carriage  of  the  typewriter. 


^Adapted  from  "An  Introduction  to  ALGOL"  by  H.  R.  Schwartz,  Comm.  A.C.M., 
February  1962,  p.  9lu 
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START 


PROCEDURE  FLIPE,  (READ,  WRITE,  NEWLINE,  INVERT) 5 

COMMENT'S  READ,  WRITE  and  NEWLINE  are  code  programs,  INVERT 
is  given  as  an  example  in  Section  6.B  of  the 
language  description  and  is  not  repeated  herej 

DIMENSION  A( 10,  10)  j 

INTEGER  i,  j| 

VARY  j  FROM  1  BY  1  UNTIL  10  IN 
VARY  i  FROM  1  BY  1  UNTIL  10  IN 
EXECUTE  READ  (A(i,  j))|  .5 

EXECUTE  INVERT  (A,  10,  singular,  A)| 

IF  singular  -  1  THEN  LET  oopss  =  ~l 

EXECUTE  NEWLINE 
EXECUTE  WRITE  (oops) 5 
GO  TO  done |  .§ 

VARY  j  FROM  1  BY  1  UNTIL  10  IN 
EXECUTE  NEWLINE | 

VARY  i  FROM  1  BY  1  UNTIL  10  IN 
EXECUTE  WRITE  (4(i,j))}  .j  .§ 
done  s  $  END 

PROCEDURE  READ  (R),  E|, 

CODEs  END |  END 

PROCEDURE  WRITE  (W) ,  E§ 

CODEs  « « •  END|  END 
PROCEDURE  NEWLINE  E,  E| 

CODEs  ...  END |  END 
PROCEDURE  INVERT  E,  E$ 

COMMENTS  (see  6„B)|  END 
STOP 


The  Input-Output  Statements 

The  Libratrol-5>00  computer  has,  as  well  as  standard  programmed 
control  input-output  facility,  the  ability  to  give  output  and  take  input 
through  groups  of  relays  connected  to  a  special  track  in  the  memory* 

The  automotive  checkout  system  is  built  around  a  specially  modified 
Libratrol-500  and  an  EPUT  meter.  The  programming  and  operation  of  the 
Libratrol=5>00  are  described  in  the  Instruction  and  Programming  Manuals 
published  by  the  Librascope  Division  of  Royal  Precision  Corporation 
(Burbank,  California)  and  in  a  special  Instruction  Manual  Supplement 
prepared  for  the  Frankford  Arsenal  by  Librascope.  The  EPUT  meter  is 
described  in  considerable  detail  in  the  Instruction  Manual  for  the 
MAIDS  EPUT  METER  prepared  for  the  Frankford  Arsenal  by  California 
Computer  Products,  Inc,  (Downey,  California). 

A  series  of  special  statements  called  input-output  statements  is 
used  to  program  the  EPUT  meter  and  its  associated  analog  to  digital  equip¬ 
ment,  to  read  in  from  or  out  to  the  EPUT  meter  and  analog -digital  equip¬ 
ment  and  to  output  various  standard  messages  to  the  operator  during  the 
running  of  any  testing  program. 

The  statements  are  p>art  of  the  complete  compiler  language  but 
are  given  separately  because  they  are  designed  for  a  special  purpose.  The 
algebraic  compiler  of  the  previous  section  could  be  coupled  with  the 
CONNECT  statement  of  FATAL  to  make  a  circuit  testing  language.  See  1961 
report,  p.  21. 
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5 .  Input “Output 
5.A  Set  Statement 


5><,A„1  Syntax 

<set  statement >  s  s=SET< device >  j 
<device>  s s«  <adc>  <output  line>|<eput> 

<adc>ss=ADC  TO<range>  <speed> 

< range >  3  3*1  V  SCALE  10  V  SCALE 

<speed>  ss=  ,  HIGH  SPEED(  < crankshaft  angle>  )|<empty> 

<eput>  3  s«EPUT<mode>  <a-setting>  <b-setting>  <slopes>  <threshold>| 

EPUT  MD< a-setting>  <b-setting>  <slopes>  <resetting>  <threshold> 
<mode>  s  s=MA  |  MB  |  MG  |  ME  |  MF  |  MG 
<a-setting>  s  s=  ,  N=  < value >  j  <empty> 

<b-setting>  8  3=,  M=<value>  <delay> |'< empty > 

<delay>ss~s  D  |< empty > 

<slopes>  38*<da  1  slope>  <da  2  slope>  <da  3  slope> 

<da  1  slope>  3  3=  ,<sign>  DAl|<empty> 

<da  2  slope>  1 1~  ,  <sign>  DA2|<empty> 

<da  3  slope>  3  s=  ,  <sign>  DA3|<empty> 

<sign>  ss^+l- 

<resetting>  3  3=THEN<da  3  slope>  |< empty > 

<threshold>  3  3=  ,  DA3  *<  number  >  VOL  TS|<  empty  > 

< crankshaft  angle>  s  s  =  < integer  >  DEGREES 

<output  line>  3S  =  <  line  identifier >  TO <number>  VOLTS 

<line  identifier>  s  i=  <  letter>  ,  <digit>  <digit>  <digit> 

3  .A. 2  Semantics 

The  set  statement  can  be  used  to  set  the  scale  or  the  method  of  oper¬ 
ation  of  the  analog  to  digital  converter.  If  the  high  speed  mode  is 
selected  than  a  crankshaft  angle  giving  the  final  reading  desired  must 
be  specified.  If  the  given  angle  is  not  a  multiple  of  10,  it  is  taken 
as  the  greatest  multiple  of  10  less  than  the  given  value. 
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Setting  an  output  line  .consists,  .of.  making_an....appropriate  series  of 
relay  closures.  If  a.,  voltage..  ±s  specified,  that  is  not  available,  the 
nearest  value  less  in  magnitude  than  the .specified  value  is  selected. 

The  EPUT  meter  can  be  set  up  for  any  desired. reading  (c.f.  MAIDS 
Manual)...  The... following  ..assumptions  are  made; 

when  a  slope,  is.  no.t  specified,  it  is  + 

when  an  a-js.etting..or  a, .besetting -  is.,  not  specified,  it  is  0 

when  a  threahold_.ia.  not. .specified,  .it. .  is  unchanged  from  the 

last  time  ..the. EPUT  meter  was  used. 

5.B  Read  Statement 
5.B.1  Syntax 

<  read  statement  >  i ;  “READ  <  source  >  INTO  <  variable  identifier  >  <  space  >  } 
<source> ;  t*> <relay  list>  Cline  identifier > 

Crelay  list>  j  ;  =  Clist  member >[<relay  list>,  Clist  member> 

Clist  member  >  j  s “GROUP (  <  group  number  >)  |  GROUPS(  <  group  list  >) 

RELAX (  < relay  number  >) |  RELAYS (  Crelay  number  list>) 
Cgroup  list  >  s  8“  C  group  number  >)c group  list  > ,  <  group  number  > 

C group  number  >s  s  =  Cunsigned  integer > 

Crelay  number  >  s  g  “< group  number  >.Cunsigned  integer > 

< space  >  s  8“(C  unsigned  integer  >)  |  ( C  unsigned  integer >,FF) 

Crelay  number  list  >**■  Crelay  number >| Crelay  number  list>>Crelay  number > 

5.B.2  Semantics 

The  read  statement  ..can  .he.,  used  alone  to  . read,  relays  and  relay  groups 
or  in  conjunction  with  a  set  statement.,  to  read  from,  the  EPUT  meter  or  from 
the  ADC  in  the  high  speed  modec  Relay  groups.. are.  identified  by  a  unsigned 
integers  and  individual  relays  by  a  group  number  and  a  relay  number. 

Inputs  are  either  read  into  a  single  storage. location  or  into  a  vector 
(which  must  have  been  previously  dimensioned)  starting  at  the  location 
identified  by  the  integer  following  the.  variable  identifier.  For  example: 
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READ  GROUPS  (1,3,  5),  RELAY  (29.1)  INTO  G(9FF)j 
means  that  the  2h  relays  in  groups  1,  3,  and  3  and.  relay  29.1  are  read 
into  G(9),  0(10),  ...  0(32),  G(33). 

When  a  read  statement,  containing  a  line  identifier  follows  a  set  state- 
ment,  the  two  are  taken  as  .a  unit,  is  the  read. statement  specifying  the 
input  to  the  EPUT  meter  (or  ADC). 
g.C.1  Syntax 

<special  statement >  8  s  ■*  < delay  statement>|<  typeout  statement >| 

<  definition  statement >  |<  close  switch  statement>| 
<open  switch  statement> 

<  close  switch  statement  >  s  *  “CLOSE  SWITCH  < unsigned  integer  >  j 
<open  switch  statement.  >  8  g  "OPEN  SWITCH < unsigned  integer  >  ; 

< delay  statement  >  s  s  “DELAY  < unsigned  number  >  SECONDS j 
<typeout  statement  >  j  s “TYPEOUT  <  typeout  list  >  $ 

< typeout  part  >  8  :■'<  symbol  string>*  |<unsigned  integ.er>|(<  variable  name  >) 
<typeout  list  >  g  g*  <  typeout  part  >  |<  typeout  list  ><  typeout  part> 
definition  statement  >  8 1  “DEFINE  <  definition  list  >  j 
<definition  list  >  j  8“  < definition >(< definition  list>,<definition> 
<definition  >  1 1  "TYPEOUT  <  unsigned  integer>  AS  '  <  symbol  string  >* 

5.C.2  Semantics 

The  delay  statement  and  the  switch  statements  are  used  respectively 

to  cause  time  delay  in  the  operation  of  the  program  and  to  open  and  close 

switches  under  computer  control. 

There  are  three  kinds  of  typeout  statements 

4«)  TYPEOUT  *  <  symbol  string >*  -  the  symbol  string  between  the  quotation 
marks  is  typed,  out.  (this-nmst  not  contain  a  H  j ") . 

b. )  TYPEOUT  <unsigned  integer  >  ~  the  symbol  string  corresponding  to  the 

given  integer  (which  must  have  previously  been  defined  by  a 
definition  statement)  is  typed  out0 

c. )  TYPEOUT  ( <  variable  name  >)  -  the  current  value  of  the  variable  is 

typed  out. 
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III.  The  Compiler 


The  complete  compiling  program  for  the  algebraic  language  will 
consist  of  four  separate  routines ,  Another  routine  will  be  appended  to 

compile  the  input  output  statements. 


SYMBOLIC 

FROGRAM 


COMPILER  p 
LANGUAGE--* 
PROGRAM  L 


INPUT  ROUTINE 


FIRST 

-*|  COMPILING 
ROUTINE 


SECOND 

COMPILING 

ROUTINE 


hf*l 


SYMBOLIC 

ASSEMBLY 

PROGRAM 


INPUT-OUTPUT 

COMPILING 

ROUTINE 


NUMERIC 

PROGRAM 


Figure  3.0  Block  Diagram  of  Complete  Compiler 


The  input  routine  is  a  short  one-to-one  translator  that  will 
substitute  numbers  for  the  symbol  strings  in  the  input.  It  will  also  label 
input-=output  commands  so  that  they  will  be  processed  by  the  special  input- 
output  compiler  and  it  will  label  constants,  variable  identifiers,  procedure 
identifiers,  etc,  as  such  to  save  the  compiler  proper  having  to  process 
strings  symbol  by  symbol.  The  substitution  of  fixed  length  numbers  for 
variable  length  symbol  strings  will  increase  the  efficiency  of  the  various 
table  look=ups  needed  during  the  compiling.  The  input  routine  is  discussed 
in  more  detail  later.  The  Symbolic  Assembly  Program  is  not  a  part  of  the 
compiler  proper  but  is  shown  for  completeness.  It  is  emphasized  that  the 
compiler  is  able  to  generate  either  symbolic  or  absolute  coding  (or  both, 
at  some  small  loss  of  efficiency)  and  as  such  the  Assembly  Program  can  be 
eliminated  entirely.  For  a  computer  such  as  the  Libratrol-f>00  which  is 
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single  address,  it  would  be  most  efficient  to  generate  numeric  coding 
directly  and  omit  the  symbolic  phase  altogether.  For  a  two  address  machine 
such  as  FADAC  for  which  optimization  or  minimum  latency  programming  is 
required,  it  would  probably  be  best  to  compile  symbolic  coding  and  let  the 
optimizer  do  the  assembly. 

RAVEL  -  The  First  Compiling  Routine 

In  last  June's  report,  RAVEL  and  SKEIN  were  the  two  compiling 
routines  that  made  up  the  YARN  compiler.  This  compiler  was  developed  by 
P.  Z,  Ingerman  on  a  contract  sponsored  jointly  by  the  Air  Force  Office  of 
Scientific  Research  and  the  National  Science  Foundation.*  This  work  is 
well  documented  elsewhere  and  the  discussion  here  centers  mainly  on  the 
application  of  this  compiler  to  the  automatic  checkout  language 
Figure  3.1a  shows  the  recursive  subroutine  RAVEL  (a,  p,  y)  where  a,  p  and  y 
are  three  parameters  that  must  be  assigned  values  before  the  routine  is  called 
The  program  calls  upon  itself  as  a  subroutine  at  two  points .  The  first, 

RAVEL  (A[h]  ,  s[j,2],  l)  sets  the  values  of  a,  p  and  y  to  A[h]  ,  S  [J,2]  and  1 
respectively!  while  the  second  RAVEL  (S[J,2],  GOAL,  2)  sets  a,  p  and  y  to 
S[J,2],  GOAL  and  2,  (The  terms  A[h]  and  S  [J,2]  are  defined  below). 


*This  work  was  done  under  Air  Force  contract  AF~lp?(638)-96l,  "Research 
into  Mechanical  Languages"  and  N.S.F.  Grant  G-llj096  placed  with  the 
Mechanical  Languages  Projects  Office  of  the  Moore  School  of  Electrical 
Engineering,  Univ.  of  Penna.  Dr.  Saul  Gorn  is  the  principal  investigator 
on  this  contract. 
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Figure  3.1a  is  a  modification  of  the  flowchart  on  page  32  (Figure  6)  of  the 
June  196l  report.  The  mechanization  of  a  recursive  routine  requires  a  lot 
of  bookkeeping  and  the  use  of  pushdown  storage.  Figure  3.1b  shows  the  same 
routine  in  non-recursive  form  where  the  subscript  ,Ji!S  designates  the  level 
of  the  pushed  down  storage  and  symbols  subscripted  with  '’i"  are  the  pushed 
down  variables. 


1 


Table  3.0 


Definition  of  Symbols  Used  in  Figures  3.1a  and  3.1b 


i  -  Counter  on  the  level  pf  the  _main  pushdown  storage 

R,  -  Stratification  counter 
i 


J.  -  Syntax  table  address 
1 


IVAR. 


Name  of  the  current  node 


GOAL^  -  Name  of  the  current  goal 


Parameters  in  the  main 
pushdown  storage. 


Exit^  -  Exit  switch  J 

S  -  Syntax  matrix 
K  -  Label  counter 

p  -  Counter  on  the  level  of  the  label  pushdown  storage 
Mp  -  Label  pushdown  storage 
h  -  Counter  on  the  input  list 

-  The  input  list  (A  [o]  is  the  first  word,  string  or  symbol  input 
u  A  [l]  '  is  the  second..;,;' etc.)  ■ 

0  -  The  empty  string  (which  may  appear  in  the  third  column  of  the 

Syntax  matrix) 

a  -  Output  control  switch 


A  language  specified  in  the  Backus  Normal  Form  (BNF)  can  be  diagrammed  as 

a  tree  with  recurrent  nodes.  For  example  the  language* 

<a>  :=B|B<c> 

<b>  }»AB  |A<c> 

<c>  i*<b><a> 
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Figure  3.1b 


non-recursive  form 
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can  be  diagrammed 


<a> 


1  \ 


\ 

\ 


and,  given  a  string  such  as,  for  example,  BBABBAB  which  is  of  type  <a> 

there  is  a  path  through  the  tree  to  generate  this  string!  If  the  language 

7  8  9  11 

is  unambiguous,  this  path  will  be  unique.  ’  * '* 

The  RAVEL  routine  takes  an  input  program  (or  statement  on  procedure, 
etc.)  and  using  the  complete  tree  of  the  language,  traces  the  path  of 
generation.  In  this  generation  tree  there  is  associated  with  each  node 
a  unique  label  or  name  and  the  output  of  RAVEL  is  a  list  of  these  node 
labels  together  with  such  local  cross  references  as  are  necessary  for  the 
second  compiling  routine  to  be  able  to  translate  this  list  into  computer 
code.  Appendix  3  contains  a  discussion  of  a  modification  to  RAVEL  to 
increase  efficiency. 

The  complete  tree  of  the  language  would  be  a  quite  large  and  unwieldy 
combination  of  lines,  arrows  and  labels;  rather  than  actually  draw  the  tree, 
the  syntax  is  put  into  a  tabular  form  and  then  into  a  3  by  (many)  -matrix 
machine  oriented  form.  These  are  called  the  S-tahle  and  S-matrix  and  the 


method  of  their  generation  is  given  in.  Appendix  1. — Table  3.1  is  the  S-table 
for  the  complete  algebraic-  language-and . Table.  .3. -2.  is  the  Matrix  Fora  of  3*1. 

In  Figure  3.1a  there  is  a  block  containing  the  expression 
“IVAR ■£’  GOAL”  (read:  does  IVAR  lead  to  GOAL).  The  answer  to  this  is  given 
in  a  binary  matrix.  The  answer 'is  “YES"  if  the  space,  corresponding  to  IVAR 
on  the  left  and  GOAL  at  the  top  has  a  “1“  otherwise,  the  answer  is  “NO". 

A  sample  table  of  this  sort  is  given  as  Table  3  (p.  60)  of  the  June  1961 
report  and  the  method  of  generation  is  given  in  Appendix  I. 
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Table  3»1  Syntax  -  Linear  Format  -  S-table 


♦ 

adop 

A 

mm 

adop 

B 

mulop 

C 

/ 

mulop 

D 

( 

arex 

) 

( 

condpart 

) 

( 

procnalist 

) 

( 

varlist 

) 

( 

varylist 

) 

< 

rel 

J 

rel 

K 

S 

rel 

L 

> 

rel 

M 

> 

rel 

N 

f 

rel 

0 

• 

end 

P 

• 

string 

end 

i 

dumstat 

ABS 

fnam 

actparlist 

> 

param 

adop 

term 

arex 

ARCTAN 

fnam 

U 

arex 

adop 

term 

arex 

param 

X 

CODE 

string 

END 

codastat 

unstat 

Z 

comment 

unstat 

AA 

COMMENT 

1 

t 

string 

eocnrarlist 

( 

vaiylist 

cond 

condlist 

AD 

cond 

condpart 

AE 

prim  E 

condlist  F 

sublist  G 

formparlist  H 

comvarlist  I 


Q 

R 

S 


actparlist 

U 

T 

arex 

V 

» 

codestat 

Y 

1 

comment 

AB 

) 

comvarlist 

AC 

i*2 


condlist 

OR 

condlist 

condlist 

AF 

condpart 

AND 

cond 

condpart 

A.G 

condstat 

unstat 

AS 

constant 

number 

41 

COS 

fnam 

4J 

dumstat 

unstat 

AN 

E 

formparlist 

AL 

E 

sublist 

AM 

ENTIER 

fnam 

AN 

eqlist 

s 

equation 

eqlist 

AO 

equation 

eqlist 

AP 

EXP 

fnam 

AQ 

fact 

prim 

fact 

AR 

fact 

term 

AS 

fnam 

( 

arex 

) 

funex  AT 

fnam 

> 

proclist 

procnalist 

AU 

fnam 

procnalist 

AV 

formparlist 

s 

sublist 

prochead 

AW 

funex 

prim 

AX 

GO  TO 

loc 

transtat 

AY 

HALT 

loc 

transtat 

AZ 

IF 

condlist 

THEN 

condtail 

%  condstat 

LET 

eqlist 

s 

letstat 

BB 

lets tat 

unstat 

BC 

LN 

fnam 

BD 

LOG 

fnam 

BE 

matrix 

prim 

BF 

matrix 

varnam 

BG 

MEAN 

fnam 

BH 

MEDIAN 

fnam 

BI 

mval 

prim 

BJ 

namelist 

s 

varnam 

namelist 

BK 

number 

mval 

BL 

h3 


number 

value 

BM 

par  am 

actparlist 

BN 

prim 

fact 

BO 

prim 

incr 

.  BP 

prim 

lowlim 

BO 

prim 

iSl 

prim 

cond 

BR 

prim 

uplim 

BS 

procc 

loc 

BT 

procc 

prim 

BU 

procedure 

proeseq 

BV 

PROCEDURE 

procid 

prochead 

stlist 

END  procedure 

procid 

( 

actparlist 

) 

|  procc 

procid 

s 

proenalist 

proenalist 

BY 

procid 

proenalist 

BZ 

proeseq 

procedure 

proeseq 

CA 

'  SIGN 

fnam 

CB 

simvar 

mval 

GG 

simvar 

varnam 

CD 

SIN 

fnam 

CE 

SORT 

fnam 

GF 

START 

proeseq 

STOP 

program 

CG 

stat 

stlist 

GH 

statlab 

0 

unstat 

stat 

01 

statlab 

loc 

GJ 

string 

procid 

GN 

string 

statlab 

CO 

string 

varid 

CP 

stlist 

ELSE 

stlist 

end 

condtail  CK 

stlist 

end 

condtail 

CL 

stlist 

stat 

stlist 

CM 

term 

arex 

CQ 

term 

mulop 

fact 

term 

CR 

transtat 

unstat 

CS 

BW 

BX 


hk 


I 


unstat 

stat 

CT 

j  value 

varylist 

CU 

varid 

( 

prim 

vector 

CV 

J  varid. . 

t 

\ 

prim 

■  > 

prim 

) 

matrix 

varid 

simvar 

cat 

j  varlist 

> 

varnam 

varlist 

CY 

1 

varnam 

arex 

equatipn 

CZ 

- 

1  varnam 

namelist 

DA 

varnam 

param 

DB 

varnam 

value 

DC 

varnam 

varlist 

DD 

VARY 

namelist 

OVER 

coravarlist 

IN 

stlist 

end 

1 

vbyl 

VARY 

varnam 

FROM 

lowlim 

BY 

incr 

UNTIL 

t 

irplim 

IN 

stlist 

end 

i 

vbyl 

varylist. 

i 

value 

varylist 

DG 

varystat 

unstat 

DR 

vbyl 

varystat 

DI 

j 

:  vby3 

varystat 

DJ 

vector 

prim 

DK 

!  vector 

varnam 

DL 

i»5 


Table  3«2  Syntax  -  Matrix  Format  -  S -matrix 


0 

0 

+ 

81 

31 

0 

ENTIER 

120 

1 

0 

- 

82 

32 

0 

eqlist 

121 

z 

0 

* 

83 

33 

0 

equation 

122 

3 

0 

/ 

81* 

3U 

0 

EXP 

123 

1* 

0 

( 

83 

33 

0 

fact 

121* 

3 

0 

< 

90 

36 

0 

fnam 

126 

6 

0 

< 

91 

37 

0 

formparlist 

129 

7 

0 

- 

92 

38 

0 

funex 

130 

8 

0 

93 

39 

0 

GO  TO 

131 

9 

0 

> 

9k 

1*0 

0 

HALT 

132 

10 

0 

93 

Ul 

0 

IF 

133 

11 

0 

• 

96 

1*2 

0 

LET 

131* 

12 

0 

} 

98 

1*3 

0 

letstat 

133 

13 

0 

ABS 

99 

1*1* 

0 

LN 

136 

ll* 

0 

actparlist 

100 

1*3 

0 

LOG 

137 

13 

0 

adop 

101 

1*6 

0 

matrix 

138 

l6 

0 

ARCTAN 

102 

1*7 

0 

MEAN 

11*0 

17 

0 

arex 

103 

1*8. 

0 

MEDIAN 

i  la 

18 

0 

CODE 

103 

1*9 

0 

mval 

11*2 

19 

0 

codestat 

106 

30 

0 

namelist 

31*3 

20 

0 

comment 

107 

3L 

0 

number 

ll*l* 

21 

0 

COMMENT 

108 

32 

0 

param 

11*6 

22 

0 

comvarlist 

109 

33 

0 

prim 

11*7 

23 

0 

cond 

110 

31* 

0 

procc 

132 

2k.  . 

0 

condlist 

112 

33 

0 

procedure 

131* 

23 

0 

condpart 

113 

36 

0 

PROCEDURE 

133 

26 

0 

condstat 

111* 

37 

0 

procid 

136 

27 

0 

constant 

113 

38 

0 

procseq 

139 

2.8 

0 

COS 

116 

39 

0 

SIGN 

160 

29 

0 

domstat 

117 

60 

0 

simvar 

l6l 

30 

0 

E 

118 

61 

0 

SIN 

163 

1*6 


|  Table 

3.2  (Con!t) 

62 

0 

SQRT 

16U 

9U 

3 

rel 

N 

:  63 

0 

START 

163 

93 

3 

rel 

0 

6h 

0 

stat 

166 

96 

2 

and 

P 

)  63 

0 

s tat lab 

167 

97 

1 

string 

201 

1  66 

0 

stlist 

169 

98 

3 

dumstat 

R 

1  6? 

0 

string 

172 

99 

3 

fnam 

S 

68 

0 

term 

173 

100 

1 

» 

202 

69 

0 

transtat 

177 

101 

1 

term 

203 

;  70 

0 

unstat 

178 

102 

3 

fnam 

V 

7i 

0 

value 

179 

103 

0 

adop 

2  0U 

72 

0 

varid 

180 

10U 

3 

par  am 

X 

73 

0 

varlist 

182 

103 

1 

string 

203 

1  7h 

0 

varnam 

183 

106 

3 

unstat 

Z 

73 

0 

VARY 

188 

107 

3 

unstat 

AA 

1  ?6 

0 

varylist 

190 

108 

1 

0 

206 

77 

0 

varystat 

191 

109. 

1 

( 

207 

CO 

0 

vbyl 

192 

110 

2 

condlist 

AD 

79 

0 

vbys 

193 

111 

3 

condpart 

AE 

80 

1 

vector 

19ii 

112 

1 

OR 

208 

'  81 

3 

adop 

A 

113 

1 

AND 

209 

82 

3 

adop 

•'B 

11U 

3 

unstat 

Afl 

83 

3 

mulop 

C 

113 

3 

number 

AI 

m 

3 

mulop 

D 

116 

3 

fnam 

AJ 

!  83 

0 

arex 

196 

117 

3 

unstat 

AK 

86 

0 

condpart 

197 

118 

2 

formparlist 

AL 

1  87 

0 

procnalist 

198 

119 

3 

sublist 

AM 

'  88 

0 

varlist 

199 

120 

3 

fnam 

AN 

,  89 

1 

varylist 

200 

121 

1 

S 

210 

1  90 

3 

rel 

J 

122 

3 

eqlist 

AP 

91 

3 

rel 

K 

123 

3 

fnam 

AQ. 

|  92 

3 

rel 

L 

12k 

0 

■** 

211 

93 

l 

3 

rel 

M 

U7 

123 

3 

term 

AS 
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126 

0 

( 

212 

158 

3 

procnalist 

BZ 

127 

0 

» 

213 

159 

1 

procedure 

224 

128 

3 

procnalist 

AV 

160 

3 

fnam 

CB 

129 

1 

i 

214 

l6l 

2 

nrval 

CC 

130 

3 

prim 

AX 

162 

3 

vamam 

CD 

131 

1 

loe 

213 

163 

3 

fnam 

CE 

132 

1 

loc 

216 

164 

3 

fnam 

CF 

133 

1 

condlist 

217 

163 

1 

procseq 

223 

134 

1 

eqlist 

218 

166 

3 

stlist 

CH 

135 

3 

unstat 

BC 

167 

0 

* 

226 

136 

3 

fnam 

BD 

168 

3 

loc 

CJ 

137 

3 

fnam 

BE 

169 

0 

ELSE 

227 

138 

2 

prim 

BF 

170 

0 

end 

228 

139 

3 

Taman 

BO 

171 

1 

stat 

229 

140 

3 

foam 

BH 

172 

2 

procid 

CN 

141 

3 

fnam 

BI 

173 

2 

statlab 

CO 

142 

3 

prim 

BJ 

174 

3 

varid 

CP 

1U3 

1 

» 

219 

175 

2 

arex 

CQ 

144 

2 

mval 

BL, 

176 

1 

mulop 

230 

145 

3 

value 

BH 

177 

3 

unstat 

CS 

11*6 

3 

actparllst 

BN 

178 

3 

stat 

CT 

147 

2 

fact 

BO 

179 

3 

varyliBt 

CU 

148 

2 

incr 

BP 

180 

0 

( 

231 

149 

2 

lowlim 

BQ 

181 

3 

simvar 

CX 

150 

0 

rel 

220 

182 

1 

> 

232 

151 

3 

uplim 

BS 

183 

0 

233 

152 

2 

loc 

BT 

184 

2 

namelist 

DA 

153 

3 

prim 

BU 

185 

2 

param 

DB 

154 

3 

procseq 

BV 

186 

2 

value 

DC 

155 

1 

procld 

221 

187 

2 

varlist 

DD 

156 

0 

( 

222 

188 

0 

namelist 

234 

157 

0 

1 

223 

189 

1 

vamam 

235 
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Table  3.2 

190  1 

(Con’t.) 

3 

236 

224 

3 

procseq 

GA 

191 

3 

unstat 

DH 

225 

1 

STOP 

261 

192 

3 

varystat 

DI 

226 

1 

unstat 

262 

193 

3 

varystat 

DJ 

22? 

1 

stlist 

263 

194 

2 

prim 

DK 

228 

3 

condtail 

CL 

195 

3 

vamam 

DL 

229 

3 

stlist 

CM 

196 

1 

) 

237 

230 

1 

fact 

264 

197 

1 

> 

238 

231 

1 

prim 

263 

198 

1 

) 

239 

232 

1 

vamam 

267 

199 

1 

) 

240 

233 

1 

arex 

268 

200 

1 

) 

241 

234 

1 

OVER 

269 

201 

3 

end 

Q 

235 

1 

FROM 

270 

202 

1 

param 

242 

236 

1 

value 

271 

203 

3 

arex 

u 

237 

3 

prim 

E 

201* 

1 

term 

243 

238 

3 

condlist 

F 

205 

1 

END 

244 

239 

3 

sublist 

G 

206 

1 

string 

245 

240 

3 

formparlist 

H 

207 

1 

varyllst 

246 

241 

3 

comvarlist 

I 

208 

1 

condlist 

247 

242 

3 

actparlist 

T 

209 

1 

corxd 

248 

243 

3 

arex 

W 

210 

1 

equation 

249 

244 

1 

• 

9 

272 

211 

1 

prim 

230 

245 

1 

0 

9 

273 

212 

1 

arex 

251 

246 

1 

) 

274 

213 

1 

procnalist 

252 

247 

3 

condlist 

AF 

214 

1 

sublist 

253 

248 

3 

condpart 

AG 

215 

3 

transtat 

AX 

249 

3 

eqlist 

AO 

216 

3 

transtat 

AZ 

250 

3 

fact 

AH 

217 

1 

THEN 

254 

251 

1 

) 

275 

218 

1 

255 

232 

3 

procnalist 

AU 

219 

1 

vamam 

256 

253 

3 

prochead 

AW 

220 

1 

prim 

257 

254 

1 

condtail 

276 

221 

1 

prochead 

258 

255 

3 

letstat 

BB 

222 

1 

actparlist 

259 

256 

3 

namelist 

BE 

223 

1 

procnalist 

260 

257 

3 

cond 

BB 
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238 

1 

stlist 

27? 

279 

3 

condtail 

CK 

239 

1 

) 

278 

280 

3 

vector 

CV 

260 

3 

procnalist 

BY 

281 

1 

prim 

287 

261 

3 

program 

CG 

282 

1 

IN 

288 

262 

3 

stat 

Cl 

283 

1 

BY 

289 

263 

1 

end 

279 

281* 

3 

condstat 

BA 

261; 

3 

tern 

CR 

283 

3 

procedure 

m 

263 

0 

) 

280 

286 

3 

procc 

BX 

266 

l 

3 

281 

287 

1 

) 

290 

267 

3 

varlist 

Cl 

288 

1 

stlist 

291 

268 

3 

equation 

cz 

289 

1 

incr 

292 

269 

1 

cornvarlist 

282 

290 

3 

matrix 

CW 

270 

1 

lowlirn 

283 

291 

1 

end 

293 

271 

3 

varylist 

DG. 

292 

1 

UNTIL 

29k 

272 

3 

codestat 

Y 

293 

1 

l 

2  95 

273 

3 

comment 

AB 

29h 

1 

uplim 

296 

27li 

3 

cornvarlist 

AC 

295 

3 

vbyl 

DE 

275 

3 

funax 

AT 

296 

1 

IN 

297 

276 

1 

i 

2Sh 

297 

1 

stlist 

298 

277 

1 

END 

285 

298 

1 

end 

299 

278 

1 

; 

286 

299 

1 

1 

300 

300 

3 

vbys 

DF 
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Table  3«3  Abbreviations . Used  in  Tables  3«1  and  3»2 


actparlist  -  actual  parameter  list 
adop  -  adding  operator 
arex  -  arithmetic  expression 
codestat  -  code  statement 
comvarliat  -  confound  vary  list 
cond  -  condition 
condlist  -  condition  list 
condpart  -  condition  part 
cond3tat  -  condition  statement 
condtail  -  condition  tail 
dumstat  -  dummy  statement 
eqlist  -  equation  list 
fact  -  factor 

formparlist  -  formal  parameter  list 

fham  -  function  name 

funex  -  function  expression 

incr  -  increment 

letstat  -  let  statement 

loc  -  location 

lowlim  -  lower  limit 

mulop  -  multiplying  operator 


mval  -  memory  value 

param  -  parameter 

prim  -  primary 

procc  -  procedure  call 

prochead  -  procedure  heading 

procid  -  procedure  identifier 

procnalls.t  -  -  procedure  name' list 

procseq  -  procedure  sequence 

rel  -  relation 

simvar  -  simple  variable 

statlab  -  statement  label 

stat  -  statement 

stlisi  -  statement  list 

sublist  -  subroutine  list 

transtat  -  transfer  statement 

unstat  -  unlabelled  statement 

uplim  -  upper  limit 

varlist  -  variable  list 

vamam  -  variable  name 

varystat  -  vary  statement 

vbyl  -  vary  by  list 

vbys  -  vary  by  steps 
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SKEIN  -  The  Second  Compiling  Routine 

As  mentioned  above ,  the  output  from  RAVEL  is  a  list  of  node  labels 
and  associated  with  each  node  is  a  symbolic  string,  SKEIN  processes  the 
strings  named  by  the  RAVEL  output  and  from  them,  the  coding  is  formed.  The 
string  language  is  briefly  described  on  pages  1*0  to  U3  of  the  June,  l?6l 
report  and  in  more  detail  in  reference  19, 

The  flowchart  of  SKEIN  given  last  year  was  in  recursive  format. 
Figure  3»3  shows  SKEIN  in  non-recursive  form  with  explicit  pushdown  storage. 
Table  3.U  shows  changes  in  notation  in  the  string  language  and  SKEIN 
symbolism „ 


Table  3.U  Notation  Changes 


String  language 

Skein  Sj 

Notation 

Old  Notation 

New  Notation 

[ 

$ 

r 

] 

3 

Sj2 

( 

6 

TO 

to 

t 

5 

) 

9 

e 

i 

-b 

# 

Old  Notation 
0 
M. 

i 


The  method  of  writing  strings  in  heuristic  rather  than  algorithmic 
and  requires  a  detailed  knowledge  of  the  language  being  compiled,  of  the 
computer  being  compiled  for,  and  of  the  method  of  compiling.  Appendix  2 
contains  a  brief  discussion  of  this  and  several  examples.  Mr.  P.  Z.  Ingerman 
who  developed  the  compiler  we  are  using  is  in  the  process  of  writing  a  paper 
on  SKEIN  which  includes  a  detailed  description  of  the  string  language  and  a 
section  on  the  writing  of  strings.^ 
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The  Input  Routine 


Input  to  the  compiling  computer  will  moat  likely  be  in  the  form  of 
punched  card  or  punched  tape.  It  will  be  necessary  to  delimit  in  some 
manner  the  special,  symbol  strings,  which,  are  to  be,  treated  as  single  characters 
(for  example :  "LET”,  "VARY” ,  "AROIAN",  "s*=",  etc.)  One  possible  way  would  be 
to  place  special  symbols  before  and  after  these  strings.  This  is  however, 
dependant  upon  the  input .  characteristics  of.  the  specific  computer  used  for 
compiling. 

The  primary  purpose  of  the.  input,  routine  is.  to  substitute  numbers 
for  letters  and  words  so  that  the  processing,  and  .table  lookup  will  be  more 
efficient. 

Usually,  numbers  will  be  assigned,  to  characters  in  the  language  in 
some  orderly  manner,  for  example,  numbering,  the.  characters  according  to  their 
first  appearance,  in  the  S-matrix  will,  simplify  table  look-up }  and  then  a 
range  of  numbers  is  set  aside  for  variable  and  procedure  identifiers,  another 
for  statement  labels,,  another  for  comments  and  another  for  constants.  As 
words  or  characters  are  read  into  the  computer,  they  are  looked  up  in  a 
table  of  allowed  words  or  characters  and  if  found  the  equivalent  number  is 
stored  in  the  input  . list.  If  not  found,,  they  are  identified  (comment? 
constant.?  etc..)  and  assigned  numbers.  These  numbers  are  then  stored  in  the 
input,  list.  Figure  3.3  roughly  diagrams  the  procedure.  Once  a  character 
string  has.. been  identified  the  same  number  is  assigned  to  each  succeeding’ 
occurrence  of  the  same  string. 


Other 
special 
symbol 
strings „ 


Figure  3.3  Schematic  of  Input  Routine 


Appendix  1 


The  Generation  of  the  S-table,  8-matrix 
and  Binary  Table  for  the  "=£>M  operation 

The  S-table  is  formed  by  re-writing  the  syntax  of  the  language  in 

a  linear  format  and  then  alphabetising.  Consider  the  language  shown  in 

Figure  A1.0. 

Figure  A1.0  Sanple  Language 

<a>  !!=  A  B  C 

<b>  n”  A  B  D  |  A  B  |  B  A 

<c>  A<b>  |  B<a>!| D 

This  is  rewritten  breaking  up  the  "or”  possibilities  into  a  series 
of  statements,  dropping  the  metalinguistic,  brackets,  and  writing  the  name 
on  the  left  at  the  right,  as  in  Figure  Al.l. 

Figure  Al.l  Rewritten  Language 

A  B  C  a 

A  B  D  b 

A  B  b 

B  A  b 

Abe 
B  a  c 

D  c 

This  is  then  alphabetised,  as  in  Figure  A1.2  and  the  formulae  are 

given  symbols  identifying  them 

Figure  A1..2  S-table  for  Sample  Languages 

A  b  c  SI 

A  B  b  S2 

A  B  C  a  S3 

A  B  D  b  Sh 

B  a  c  S5> 

B  A  b  S6 

D  c  S7 
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The  S-matrix  is  formed  from  the  S-table  by  an  orderly  transformation 
which  is  shown  in  progressive  steps  in  Figure  Al»3  (The  numbers  in  the  O'th 
column  are  for  refer  ence  only  and  are  .not  part  of  the  S-matrix) . 

a)  All  names  in  the  first  column  of  the  S-table  are  listed  in  the 
second  column  of  the  S-matrix  (duplicated  names  are  entered  only 
once)  to  form  the  first  local  list. 

b)  Tag  numbers  are  entered  in  the  first  column  of  the  matrix. 

A  tag  of  1  means  that  this  entry  ends  a  local  list  and  a  tag 
of  0  means  that  the  entry  does  not  end  a  local  list. 

c)  The  names  from  the  second  column  of  the  S-table  are  listed  in 
the  second  column  of  the  S-matrix.  Duplicated  names  are  entered 
only  once  only  if  all  S-table  entries  to  the  left  of  them  are 
identical.  E*g.  the  three  entries  of  B  in  the  second  column  of 
the  S-table  all  have  the  same  entries  to  their  left  so  they  are 
only  listed  once. 

d)  The  third  column  of  the  matrix  will  contain  either  an  S-table 
identifying  symbol  (e*go  SI,  S2,  S3,  etc.  in  this  example j  or 

A,  B,  C,  D.  ...  etc.  in  the  S-table  for  the  language)  or  a  number 
referring  to  another  row  in  the  matrix.  The  A  in  the  first 
column  of  the  S-table  is  followed  by  b  in  one  row  and  B  in  three 
others.  Hence,  the  A  in  the  first  row  of  the  S-matrix  is  said  to 
"refer  to"  and  b  and  the  B  in  rows  1*  and  5  of  the  matrix.  The  b 
and  B  in  rows  1*  and  $  form  a  second  local  list  and  are  tagged 
accordingly.  Column  3  of  row  1  has  a  ij.  to  indicate  that  the  A 
is  followed  by  the  members  of  the  local  list  beginning  in  row  U. 
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Similarly,  the  B  in  row  2  is  followed  by  the  local  list  consist¬ 
ing  of  a  and  A-  beginning,  in  row  6  and  the  D  is  followed  by  the 
single  entry  local  list  in  row  8„  Whenever  a  character  is 
entered,  into  column  2  that  is  followed  in  the  S -table  by  an 
identifier,  that  identifier  is  entered  into  column  3  and  two  is 
added  to  the  tag  digit  to  indicate  the  end  of  a  production  rule. 
(The  separate  lines  in  the  S-table.  are  known  as  production  rules.) 

e)  The  next  set  of  entries  in.  the  second,  column  come  from  the  third 
column  of  the  S-table  .  In  this  case  every  name  is  entered  since 
no  two  identical  names  have  identical  entries  to  their  left. 

f)  As  above,  local  lists  are  formed,  tagged  and  appropriate  entries 
are  put  in  column  3.  The  b  of  row  1*  leads  to  the  single  entry 
list  of  row  9  which  is  c  and  this  ends  the  production  rule 
identified  by  SI.  The  B.  of  row  3  leads  to  the  3  entry  local 
list  in  10,  11,  12.  Row  10  column  3  contains  an  identifier  so 
the  tag  digit  of  row  10  is  increased  by  two. 

g  and  h)  The  above  processes  are  continued,,  using  the  next  (in  this  case, 
the  last)  column  of  the  S-table  and  this  completes  the  S-matrix. 

In  the  S-table  for  the  complete  compiler  language,  there  are  entries 
that  have  up  to  13  items.  In  forming.. the  S-matrix,  the  above  procedures 
must  be  repeated  twelve  times. 

The  table  for  the  operation  is  formed  from  the  S-table. 

Figure  Al.U  contains  a  part  of  the  S-tahXe  of  Table  3.1.  a*^  p  is  read 

"does  a  lead  to  0W  and  o  is  called  the  antecedent  and  the 
consequent.  In  the  table  the  antecedents  are  listed  along  the  left  margin 
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Figure  A1.3  Steps  in  Formation  of  the  S-matrix 


12  3 

b)  1  0  A 

2  OB 

3  ID 


c)  1  0  A 

2  0  B 

3  1  D 

k  b 

5  B 

6  a 

7  A 

8  c 


12  3 

d)  1  0  A  1* 

2  0  B  6 

3  1  D  8 

it  Ob 

3  IB 

6  O'  a 

7  1  A 

8  3  c  S7 


e)  1 
2 
3 
1| 

5 

6 

7 

8 
9 

10 

11 

12 

13 

Ik 


12  3 

0  A  i| 

0  B  6 

1  D  8 

0  b 

1  B 

0  a 

1  A 

3  c  S7 

c 
b 
C 
D 
c 
b 


12  3 

f)  1  0  A  It 

2  0  B  6 

3  1  D  8 

it  0  b  9 

5  1  B  10 

6  0  a  13 

7  1  A  lit 

8  3  c  S7 

9  3  c  SI 

10  2  b  S2 

11  0  C 

12  ID 

13  3  c  S3 

lit  3  b  S6 


1 

2 

3 

1 

2 

3 
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0 

c 
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C 

15 

12 
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D 
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D 
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3 

c 

s5 

13 

3 

c 

S5 
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15 
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S3 
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b 

16 

3 

6 
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and  the  consequents  across  the  top,  Antecedents  are  the  names  and  symbols 
that  appear  in.  the  first  column  of  the  S -table  and  consequents  are  the 


names  that  appear  at  the  end  of  the 

rules.  The  table  is  begun  by 

entering  a  1  into  each  place  where  antecedent  and  consequent  correspond 

to  the  beginning  and  end  of  a  rule  in  the  S-table;  as  in  Figure  A1.5. 

Figure  Aid* 

Part  of  Table 

3»1  Used  for  Example  in  Text 

+ 

adop 

- 

adop 

* 

raulop 

/ 

mulop 

( 

arex 

)  prim 

ABS 

fnam 

adop 

term 

arex 

arex 

adop 

term  arex 

COS 

fnam 

fact 

** 

prim  fact 

fact 

term 

fnam 

( 

arex  )  funex 

funex 

prim 

matrix 

prim 

mval 

prim 

numb 

mval 

prim 

fact 

term 

arex 

terra 

mulop 

simvar 

mval 

vector 

prim 

Next  the  rules 

(a*^{3)*(p*^Y)>(a  ^  y)  is  applied  to  Figure  Al. 

one  row  at  a  time  to  give  Figure  A1.6,  For  example  (+11^  adop)  and 


(adop  arex)  therefore  (+^arex);  (COS  fnam)  and  (fham*^  funex) 
therefore  (COS  ^  funex) . 
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Figure  Alo  Initial  Entries  in  *>#  table 


&8S  § 

T?  U  ,nj  ci 


IffS 


U  ID 


+ 

* 

1 

1 

1 

/ 

1 

( 

1 

ABS 

1 

adop 

1 

arex 

1 

COS 

1 

fact 

1 

1 

fram 

1 

funex 

1 

matrix 

1 

mval 

1 

numb 

1 

prim 

1 

term 

1 

1 

sirnvar 

1 

vector 

1 

Figure  A1.6  Extension  of  &  table 


s  S3<§<§1 1  k$ 


+ 

1  1 

1  1 

i 

/ 

i 

( 

1 

i 

ABS 

1 1 

adop 

1 

arex 

1 

COS 

1 1 

fact 

1  1 

l 

fram 

l 

l 

funex 

1 

l 

matrix 

1 

i 

mval 

1 

i 

numb 

1 _ 

l  l 

SBQ 

i 

l 

sirnvar 

i 

1 1 

vector 

l  i 

i  l 
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The  rule  is  then  applied  to  the  rows  in  the  modified  table  and  repeated 


until  there  is  no  further  change.  Figure  A1.7  shows  the  complete  table. 


Figure  A1.7  Couplets  table  for  the  Stable  of  Figure  Al.l* 


f  3  S  §  1  f  3  B 
■SS<S5Sil  S.S 
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1  1 

* 

1 
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1  ^ 

ABS 
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adop 

1 

arex 

1 

COS 

1  1 

1  1 

1  1 

fact 

1  1 

1 

fram 

1  1 

1 

1  1 

funex 

1  1 

1  1 

matrix 

1  1 

1  1 

mval 

1  1 

1  1 

numb 

1  1 

111 

prim 

1  1 

1 

tern 

1 

1 

simvar 

1  1 

111 

vector 

1  1 

1  1 

Appendix  2 

Strings  and  Their  Interpretation 
The  following  strings  have  thus  far  been  written 


As  0 

Es  [(2e*Tb*T*I)] 

Us  [(l)  (2)] 

Ws  [(3)HT(3e*T)  (le*Tb*T*l);. 

(2)H0128  BT(3e*T)R0012  UOOOO  AOOOO] 

AOs  [(3)  (1)3 
AS  s  [(!)] 

BJs  ©(1)3 

BOs  [(!)] 

ccs  C(i)3 

CDs  [H(l)] 

GQs  [(1)] 

CXs  [(1)] 

czs  C(i)  ( 3)3 

Where %  (n)  means  ’’replace  this  string  by  what  comes  n  strings  below" 

(neabp)  means  "replace  this  string  by  what  comes  n  strings  below 
except  where  a  appears,  put  p." 

(3ea)  means  replace  this  string  by  an  integer  one  less  than  the 
number  of  characters  in  o  ("*T"  and  "*I"  are  considered  to  be  single 
characters) . 

The  method  of  generation  of  strings  that  has  been  used  is  to  simulate 
RAVEL  for  various  input  statements  and,  knowing  the  coding  we  wish  to  have 
generated  for  the  given  statement,  write  strings  that  will  do  just  that. 

Consider  string  "AS" s  when  a  factor  becomes  a  term  according  to  the 
definition  in  2,B»1  of  the  language,  no  coding  need  be  generated  since  both 
factors  and  terras  are.  held. in.  the  accumulator.  The  string  is  Jl)]  which 
essentially  says  "go  on  to  the  next  string"  when  a  memory  value  becomes  a 
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,  however*  this  entails  the  bringing  to.  the  accumulator  of  a  word 


in  memory,,  The  string  for  this  is  [B(l)]  where  the  B  is  the  Libratrol-^OO 
"Bring"  code,,  For  more  examples  of  strings,  including  a  completely 
simulated,  statement,,  see  the  June  1961  report. 
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Appendix  3 


Modifications  to  RAVEL 

The  use  of  an  Input  routine  to  label  and.  identify  the  strings  and 
symbols  in  the  input  simplifies  the  processings .  .In.  fact,  sections  1.A  and 
l.B.l  of  the  language  can  be  omitted. from,  the  S-table  and  5-matrix.  In 
consequence  RAVEL  must,  be  modified  so  that  when.  a  . symbol  string  that  is 
identified  as  a.  variable,  identifier,,  statement  label,,  procedure  identifier, 
etc.  is  entered  into  the  pushdown  storage,  .the  following  occurs s  is  set 
equal  ,  to.  zero,  some  special,  symbol  is  .  placed  ..in  the  column  and  the  i  is 
increased  by  lj  QQAL^__^  goes  into  GQAL^  the  identifier  associated  with  the 
symbol  string.  (.i..e0  varid,  statlah,  etc.)  is  put  into  IVAIL ,  W2H  into  EXIT^ 
and  control  transfers  to  the  IVAR^  GQAL^  section.  It  is  understood  that 
XVAR±  *>■  QOALi  is  never  true,  when  IVAR^  is  a  symbol  string. 

When  is  a  special  symbol  and  the  ^Output  3) "  box  is  reached, 

the  actual  symbol  string  identified  by  the.  number  in  IVAR^  is  put  out. 
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Appendix  k 

Libratrol-5>00  Floating  Point  Arithmetic  and  Square  Root 

The  coding  is  given  in  relocatable  form.  For  the  arithmetic  the 

first,  operand  is  in  the  accumulator  while  the  second  is  stored  in  the  base 

address  .+  128.  For  the  square  root,  the  operand  is.  in  the  accumulator.* 

The  format  is  qq.mmmmm  where  mmmmm  is  the  normalized  mantissa  and 

qq  is  the  exponent  of  z.  (complement  notation  is  used  for  both.) 

The  output  is  a  number  in  the  accumulator  in  the  above  format. 

The  routine  uses  four  tracks  and  no  additional  storage. 

Calling  sequences? 

Arithmetics  R  Lo+12 
ULo 

X  0000  (where  X  is  A,  S,  M  or  D,  depending  upon 
the  operation  desired.) 

Square  Root*  R  Lo+330 
J  Lo+300 


^Square  Root  is  done  using  Newton* s  Method. 


66 


Coding  of  Arithmetic  Routines 


Instruction  •  a 


Program  Input  Codes  ^  Location 

Operation  |  Address 

5 

m 

Contents  of  Address  &  Notes 

0000 

H 

0132 

i 

a 

0001 

E. 

0219 

i 

Extract  exp  a 

0002 

H: 

10226 

i 

Exp  a 

0003 

B 

0132 

i 

a 

oool* 

E. 

,0220 

i 

Extract  sign- mantissa  a 

0003 

IT 

0336 

i 

0006 

B: 

0128 

i 

b 

0007 

E 

10219 

i 

Extract  exp  b 

0008 

h: 

10227 

i 

Exp  b 

0009 

Bi 

10128 

i 

b 

0Q!0 

e; 

10220 

i 

Extract  sign- mantissa  b 

0011 

u 

©3t|l 

i 

0012 

b: 

C  3 

i 

Operation  code 

0013 

u 

10013 

i 

coil* 

z: 

10211 

i 

0013 

S: 

0223 

i 

6  at  13 

0016 

T 

0130 

i 

if  neg  divide 

0017 

s: 

-3" 

CM 

CM 

O 

i 

2  at  13 

0018 

T 

0113 

i 

if  neg  multiply 

0019 

H: 

0130 

i 

if  +  add  or  subtract 

0020 

b: 

0226 

i 

exp  a 

0021 

•  .  s 

0227  • 

i 

exp  b 

0022 

T 

0033 

i 

if  neg  b>a 

0023 

S: 

0213 

i 

1  at  7 

0021* 

.  T 

ool^ 

i 

if  neg  b  ■  a 

0023 

H 

0129 

i 

a-b-1  =  counter  a>b 

0026 

Bl 

0229 

i 

b  mantissa 

0027 

M 

0211* 

i 

1  at  1 

0026 

HI 

0229 

i 

b  mantissa 

0029 

B, 

0129 

i 

counter 
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Instruction 


Program  Input  Codes  j£j  Location  Operation  Address 

m 

Contents  of  Address  &  Notes 

0030 

s. 

.0213 

1 

1  at  7 

0031 

T 

001+1+ 

1 

if  neg  a  *  b 

0032 

u 

0023 

1 

0033 

B 

0227 

1 

b  exp 

003U 

s. 

0226 

1 

a  exp 

0035 

s. 

0215 

1 

1  at  7 

0036 

H 

0129 

1 

b-a-1*  counter  b>a 

0037 

E 

0228 

1 

a  mantissa 

0038 

M 

:o2iU 

1 

1  at  1 

003? 

H 

0228 

1 

a  mantissa 

00U0 

TV- 

D- 

0129 

1 

counter 

001a 

s; 

0213 

1 

1  at  7 

001+2 

T 

C'0U7 

1 

if  neg  a  *  b 

001+3 

U 

0036 

1 

001+1+ 

a 

0226 

1 

a  exp 

ool+3 

H 

0230 

1 

final  exp 

001+6 

u 

00lt9 

1 

OOi+7 

B 

0227 

1 

b  exp 

001+8 

H 

0230 

1 

final  exp 

00i+9 

B. 

0228 

1 

a  mantissa 

0030 

M 

D21U 

1 

1  at  1 

0031 

H 

0228 

1 

a  shifted  right  one  place 

0032 

B 

0229 

1 

b  mantissa 

0033 

M 

0211+ 

1 

1  at  1 

oo3li 

H 

0229 

1 

b  shifted  right  one  place 

oo33 

B 

0130 

1 

code  (-8) 

0036 

S. 

0223 

1 

7  at  13 

0037 

T 

0062 

1 

if  neg  add  -  if  +  subtract 

0038 

B. 

0228 

1 

a  mantissa 

0039 

S 

0229 

1 

b  mantissa 

0060 

H 

0231 

1 

a  -  b  *  final  mantissa 

0061 

a 

0101 

1 

0062 

B 

0228 

1 

a  mantissa 

0063 

Ai 

0229 

1 

b  mantissa 
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Instruction 


Program  Input  Codes 

Location  Operation  Address  £ 

Contents  of  Address  &  Notes 

0100 

H 

0231 

1 

a+b  ■  final  mantissa 

0101 

U 

0104 

1 

010,2 

1 

0103 

1 

0104 

b: 

0230 

1 

final  exp 

0103 

A. 

.0213 

1 

1  at  7 

0106 

T 

> 

1 

if  neg  overflow  exponent! 

0107 

K 

0230 

1 

final  exp 

0108 

u 

0207 

1 

Multiply 

0109 

xc 

6 363 

1 

0110 

S' 

0131 

1 

0111 

u 

0134 

1 

0112 

1 

0113 

B 

0226 

T 

X 

exp  a 

0114 

s 

0221 

1 

64  at  7 

oii3 

L 

0227 

1 

exp  b 

0116 

T 

1 

if  neg  overflow  exponent I 

0117 

K 

0230 

1 

final  exp 

0118 

B. 

0228 

1 

a  mantissa 

0119 

M 

0229 

1 

b  mantissa  «■  ab  at  14 

0120 

N 

co 

Tn 

o 

1 

1  at  24 

0121 

H 

0231 

1 

final  mantissa 

0122 

B 

0228 

1 

a  mantissa 

0123 

K 

0229 

1 

b  mantissa  *  ab  at  0  (n  par 

0124 

M 

0216 

1 

1  at  24 

0123 

H 

0131 

1 

ab  mantissa  at  24  (n  part) 

0126 

T 

0109 

1 

if  neg*  |ab|  + 1  at  24 

0127 

U 

.0136 

1 

0128 

1 

b 

0129 

1 

counter 

0130 

1 

code  (-8) 

0131 

1 

ab  mantissa-  (n  part) 

69 


Instruction 


Program  Input  Codes  g 

Location  Operation 

j  Address 

•p 

w 

Contents  of  Address  and  Notes 

0132 

1 

a 

0133 

1 

b  exp  (“63) 

013U 

A 

031*8 

1 

1  at  21* 

0139 

H 

0131 

1 

ab  mantissa  at  21*  (n  part) 

0136 

B 

0231 

1 

final  mantissa 

0137 

A 

0131 

1 

ab  at  21*  (n  part) 

0138 

H 

0231 

1 

final  mantissa 

0139 

E 

0218 

1 

extract  all  but  1st  bit 

011*0 

S 

0218 

1 

1  at  8 

011*1 

T 

011*3 

1 

if  neg  shift 

011*2 

U 

0207 

1 

011*3 

B 

0231 

1 

final  mantissa 

011*1* 

N 

0217 

1 

1  at  30 

01 15 

H 

0231 

1 

final  mantissa 

011*6 

B 

0230 

1 

final  exp 

011*7 

S 

021? 

1 

1  at  7 

011*8 

H 

0230 

1 

final  exp 

011*9 

U 

020? 

1 

Divide 

0130 

B 

022? 

1 

b  exp 

0191 

S 

0222 

1 

6?  at  7 

0132 

H 

0133 

1 

b  exp  (—6?) 

0153 

B 

0226 

1 

a  exp 

0131* 

S 

0133 

1 

b  exp  (-69) 

013? 

T 

1 

if  neg  underflow  exponent! 

01?6 

H 

0230 

1 

final  exp 

015? 

B 

0228 

1 

a  mantissa 

015>8 

M 

0211* 

1 

1  at  1 

0159 

D 

0229 

1 

b  mantissa 

0160 

U 

03?2 

1 

0161 

E 

0218 

1 

extract  all  but  1st  bit 

0162 

S 

0218 

1 

1  at  8 

0163 

T 

0201 

1 

if  neg  shift 
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o 

■p 

to 


Instruction 


Program  Input  Codes  £  Location  Operation 


Address 


o. 

o 

£  Contents 


of  Address  and  Notes 


0200 

U 

0207 

1 

0201 

B 

0231 

1 

final  mantissa 

0202 

N 

021? 

1 

1  at  30 

0203 

H 

0231 

1 

final  mantissa 

020b 

B 

0230 

1 

final  exp. 

0205 

S 

0215 

1 

1  at  7 

0206 

H 

0230 

1 

final  exp. 

020? 

B 

0012 

1 

0208 

A 

0213 

1 

Z0001 

0209 

Y 

0212 

1 

0210 

U 

0232 

1 

0211 

A 

0230 

1 

0212 

U 

C  3 

1 

EXIT 

0213 

xz 

0001 

1 

) 0000012 

0211* 

1*000 

0000 

1 

1  at  1 

0215 

100 

0000 

1 

1  at  7 

0216 

ho 

1 

1  at  25 

0217 

2 

1 

1  at  30 

0218 

80 

0000 

1 

1  at  8=  1st  bit  extractor 

0219 

7W00 

0000 

1 

Exp  extractor 

0220 

8CWW 

wwww 

' 

1 

Sign  -  mantissa  extractor 

0221 

1*000 

0000 

1 

61*  at  7 

0222 

1*100 

0000 

1 

65  at  7 

0223 

6 

0000 

1 

6  at  15 

0221* 

2 

0000 

1 

2  at  15 

0225 

7 

0000 

1 

7  at  15 

0226 

1 

a  exp 

022? 

1 

b  exp 

0228 

1 

a  mantissa-  sign 

022 9 

1 

b  mantissa-  sign 

0230 

1 

final  exp 

0231 

1 

final  mantissa-  sign 
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Instruction 


Program  Input  Codes  Location  Operation 

Address 

•p 

co 

Contents  of  Address  and  Notes 

0232 

B 

0231 

1 

Mantissa 

0233 

T 

09). 0 

1 

JL 

No.  is  neg? 

0231+ 

S 

0217 

1 

1  at  30 

023^ 

T 

0262 

1 

if  neg  no.  *  0 

0236 

U 

03 1*9 

1 

023? 

s: 

0218 

1 

1  at  8 

0238 

T 

0210. 

1 

if  neg  shift 

0239 

B 

0231 

1 

02l*0 

U 

0211 

1 

021a 

B 

0230 

1 

exp 

02ii2 

s 

0213 

1 

1  at  7 

02i(3 

T 

1 

if  neg  overflow  exponent'. 

02l|lt 

H 

0230 

1 

021*3 

B 

0231 

1 

mantissa 

021*6 

N 

0217 

1 

1  at  30 

02U7 

H 

0231 

1 

021*8 

U 

0236 

1 

021*9 

B 

0261 

1 

Z0233 

0230 

Y 

021*0 

1 

0231 

XC 

6363 

1 

0232 

S 

0231 

1 

“(mantissa) 

0233 

H 

0231 

1 

-(mantissa) 

0231* 

U 

0236 

1 

0233 

B 

OOll* 

1 

Z0211 

0236 

Y 

02i*0 

1 

0237 

XC 

6363 

1 

0238 

s 

0231 

1 

+( mantissa) 

0239 

E 

0220 

1 

0260 

U 

0211 

1 

0261 

Z 

0233 

1 

0262 

B 

0211* 

1 

6k. 00000 

0263 

U 

0212 

1 

TO  EXIT 
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g<  Instruction  g< 

Program  Input  Codes  ■£  Location  Operation!  Address  hp  Contents  of  Address  and  Notes 

Vj  \  CQ 


0300 

H 

0132 

1 

a 

0301 

T 

0333 

JL 

halt  xf  neg • 

030a 

S 

021? 

1 

1  at  30 

0303 

T 

0333  . 

1 

halt  if  neg. 

030U 

B 

0132 

1 

a 

0303 

E 

0219 

1 

Extract  exp,  a 

0306 

H 

0226 

1 

Exp  a  , 

0307 

B 

0132 

1 

a 

0308 

E 

0220 

1 

Extract  sign-  mantissa  a 

0309 

H 

0228 

1 

sign~  mantissa  a 

0310 

B 

0226 

1 

0311 

E 

0213 

1 

Extract  of»  7  bit 

0312 

S 

0213 

1 

1  at  7 

0313 

T 

0320 

1 

if  neg  characteristic  is  even 

0311* 

B 

0226 

1 

0313 

A  j 

0213 

1 

1  at  7 

0316 

H 

0226 

1 

0317 

B 

0228 

1 

0318 

M 

0211* 

1 

1  at  1 

0319 

H 

0228 

1 

0320 

B 

0213 

1 

1  at  7 

0321- 

C 

031*7 

1 

Xi 

0322: 

S 

0228 

1 

0323 

D 

031*7 

1 

Xi 

0321; 

A 

031*7 

1 

xi 

0323 

M 

031*6 

1 

-1/2  at  0 

0326 

T 

0331 

1 

If  neg  [-£][-£«(, 

0327 

B 

0226 

1 

if  +X^»  /a 

03  28 

M 

0211* 

1 

3  at  8 

0329 

A 

031*7 

1 

xi 

0330 

U 

[  3 

1 

0331 

A 

1 

031*7 

1 

Xi 
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Instruction  o 


Program  Input  Codes  tn  Location  Operation 

Address 

40 

CO 

Contents  of  Address  and  Notes 

0332 

u 

0321 

1 

0333 

xz 

0000 

1 

a^  0  To  continue  START 

03 3U 

B 

021k 

1 

bring  61+ . 00000=  0 

033? 

u 

0330 

1 

0336 

T 

03  38 

1 

if  neg  add  fill  in 

0337 

u 

0339 

1 

0338 

A 

0219 

1 

2's  complement  fill  in 

0339 

H 

0228 

1 

03U0 

U 

0006 

1 

031*1 

T 

031+3 

1 

if  neg  add  fill  in 

03U2 

U 

031+1+ 

1 

031+3 

A 

0219 

1 

2's  complement  fill  in 

031+1+ 

H 

0229 

1 

031+5 

U 

0012 

1 

)  0000001  03I16 

J000 

0000 

1 

-1/21 

031+7 

1 

y  ?■  f or  sq.  root 

)  0000001  03I+8 

80 

1 

1  at  21+ 

03U9 

B 

0231 

1 

0330 

E 

0218 

1 

0351 

U 

0237 

1 

03^2 

M 

0213 

1 

0333 

H 

0231 

1 

0351+ 

U 

0161 

1 

0355 

1 

035>6 

1 

0337 

1 

0338 

1 

03  39 

1 

0360 

1 

0361 

1 

0362 

1 

0363 

1 

7h 


Appendix  $  ”  Part  I 
Algebraic  Compiler  Language  Manual 


1.  General 

A  computer  program  written  in  this  language  consists  of  a  series 
of  statements  each  containing  words  and  symbols.  Each  statement  ends 
with  a  semicolon.  This  manual  describes  the  allowable  statements  and 
discusses  how  they  are  combined  into  meaningful  routines,  subroutines 
and  procedures, 

2,  The  LET  statement,  variables  and  constants 
2,1  The  general  form 

Computations  are  programmed  as  LET  statements  which  are  of  the 
form1'  g 

LET  "a  variable” g "'‘an  arithmetic  expression" j  for  example* 

LET  Bg«C+D  | 

Before  discussing  this  more  fully,  we  shall  describe  the  structure  of 
the  variables  and  constants  that  may  appear  in  the  statements, 

2 011  Variables 

A  variable  is  a  symbol  which  names  a  number.  Simple  variables 
are  formed  by  strings  of  letters  and  digits  beginning  with  a  letter. 
For  example? 

A  AFL  S3T?58 

C269U7  HOOT  R00T1 

RESULT  ALPHA  GAMMA  60 

2012  Constants 

A  constant  is  a  number  and  may  be  expressed,  either  as  an  integer 
or  as  a  decimal  number,  A  decimal  numher  may  contain  a  decimal  point 

■'•In  this  manual,  the  quote  symbols  are  often  used  to  denote  examples  and 
class  names.  They  do  not  appear  in  the  actual  program. 
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and  may  have  a  power  of  ten  attached.  A  plus  or  minus  sign  may  preceed 
the  number  if  desired. 

Exampless 

Integers?  1  +3  -27  +7123  197631*975 

Decimals  without  powers  of  tens 

1.0  +3.0  -2.700  +.7125  .0001976&973' 


Decimals  with  powers  of  ten-1- 

1.0*10**3  -  1„0#103 


+3*10**-8 


+3*10' 


-8 


«  -io1^1 

-.oo5*io*»i2  -=  -Ooo5*io12 


Note  that  numbers  do  not  have  to  be  in  normal  form. 

I.e.,  30  -  30.0  *  3*10**1 

*  .3*10**2  -  ,03*10*»3  etc. 

2.13  Arithmetic  expressions 

An  arithmetic  expression  is  an  algebraic  formula  and  gives  a  rule 
for  computing  a  numerical  value.  It  is  made  up  of  variables,  constants 
and  the  signs? 

+  addition 
-  subtraction 
*  multiplication 
/  division2 
**  exponentiation. 


-'-An  asterisk  denotes  multiplication  and  a  double  asterisk  denotes 
exponentiation . 

2It  is  helpful  to  think  of  division  as  multiplication  by  the  reciprocal 
i.e.,  A/B  *  A*(B) "•L  and.  A/B/C  ■  A*(B)’“1*(C)”1. 
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! 

Left  and  right  parenthesis  are  used  for  setting  off  parts  of  the 
expression. 

Examples: 

A+B  A+B*C  (A+B)*C 

A/B+C/D  (A+B+C*D)/E  (A+B)**E 


Operations  are  performed  in  the  following  orders* 

First  s  ** 

Second:  *  and  / 

Third 8  +  and  - 

and,  where  no  order  is  expressed  (as  in  A+B+C-D)  evaluation  is 
performed  from  left  to  right. 

Examples  * 


A*B*#c/D  means 

ABC 

D 

(a*b)**c/d 

II 

o  I 

3 

(A*B)**(C/D) 

II 

(ab)°/d 

A*B**(C/D) 

II 

AB0^ 

a*b+c**e-d 

II 

AB+t^-D 

a*(b+c)**e-d 

It 

a(b+c)e-d 

a*b+c**(e-d) 

II 

ab+c(e-d) 

a+b**c-d/e*f 

II 

a+bc-d(e)"1 

a+b**((c-d)/e)*f 

II 

(a+b**c-d/e*f 

II 

(A+B)C-ig 
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2 .14  Functions 


There  are  a  series  of  standard  functions  available  for  use  in 
arithmetic  expressions..  In  the  following  definitions  Y  stands  for 
any  arithmetic  expression. 

ABS(Y)  means  the  absolute  value  of  Y?  -I  if  Y  is  negative,  other¬ 
wise  Y. 

SIGN(Y)  1,1  the  signum  of  Yg/l  if  Y  is  positive,  -1  if  Y  is 

negative,  0  if  Y=0. 

SQRT(Y)  *  the  positive  square  root  of  Y. 

SIN(Y)  "  the  sine  of  the  number  Y,  or  of  the  angle  whose 

radian  measure  is  Y. 

COS(Y)  w  the  cosine  of  the  number  Y. 

ARCTAN(Y)  "  the  principal  value  (in  radians)  of  the  arctangent 

of  Y. 

LN(Y)  "  the  natural  logarithm  of  It  log  Y. 

© 

LOG(Y)  w  the  logarithm  to  the  base  10  of  It  log^Y. 

EXP(Y)  «  the  exponential  of  Yt  eY , 

ENTIER(Y)  ”  the  greatest  integer  not  greater  than  Y. 

MEDIAN(Y)  are  used  primarily  in  conjunction  with  subscripted  variables 
MEAN(Y)  and. will.  be.  discussed. later.  They  are,  however, 

defined  for  an  expression  Y  which  contains  no  free 
subscripts  as  follows! 

MEDIAN(Y)=  Y 
MEAN(Y)=  Y. 

Examples  s 

SIN (THETA)  C0S(3*J*PI) 

SQRT(B*B-4*A*C)  LN(EXP(X)} 

2.1$  The  replacement  Operator 

The  symbol  " ?=n  is  called  the.  replacement  operator  and  is  used  in 
equations.  It  is  not  the  same  as  but  rather  means  ’’assign  the  value 
resulting  from  the  computation . on  the  right  side  to  the  variable  on  the 
left." 
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I.E.  ns“n+l  is  a  valid  operation, 

but  nsn+l  is  an  invalid  statement*# 

2.2  Computing,  using  the  LET  Statement 

The  basic  let  statement,,  as  given  above  is  of  the  forms  LET 
"variable" j“"  arithmetic  expression1^  If  more  than  one  computation 
is  to  be  performed,  several  equations  may  be,  combined  into  one  LET 
statement  by  separating  them  with  commas: 

LET  ’’variable": “'’arithmetic  expression", 

"variable "'j “"arithmetic  expression", 

"variable" 8 “"arithmetic  expression" j 

2*21  Examples 

LET  A  8  “ 

LET  i 8  *  i+2 1 

LET  ROOT  ?  “  (-b+SQRT  (b*b-l;*a*c) )  /2*a,- 

LET  Hi  - A, 

A8  -  B, 

Bs  “  Tl# 

LET  RESULT 8  “  (.3*SIN(PI*3*OMEGA)+COS(ALPHA)) 

*(LN(EXP( SQRT(ARG) )))j 

2.3  Subscription  of  Variables 

It  is  sometimes  useful  and  often  necessary  to  refer  to  groups  of 
numbers  by  a  single  name,  using  subscript  numbers  to  denote  the 
individual  numbers.  For  example |  matrices  and  determinants.  This 
language  allows  the  use  of  variables  having. single  and  double  subscripts 
called  respectively  vectors  and  matrices.  Since  true  subscripts  cannot 
be  conveniently  written,  the  convention  has  been  established  that  sub¬ 
scripts  will  be  enclosed  by  parenthesis  and.  .placed  . behind  the  variable 

■"However  some  Programming  languages  (cf  FORTRAN)  allow  it. 
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name.  The  two  subscripts  of  a  matrix  are  separated  by  a  comma,  E.g. 

A(i)  F00F(3) 

A(i,j)  FOOF(3s7) 

Subscripted  variables  may  be  used  any  place  non-subscripted  variables 
appear  so  long  as  the  values  of  the  subscripts  are  defined,  I,e, 

A(i, j)  does  not  mean  anything  unless  numerical  values  have  been  assigned 
to  i  and  to  j. 

An  arithmetic  expression  may  appear  as  a  subscript  e,g, 

A(i+j,  i“j) 

F00F((C+D/G,  SQRT(Pl)) 

When  these  subscripted  variables  are  used,  the  expression  or 
expressions  in  the  subscript  will  be  evaluated  and  if  it  is  not  an 
integer,  the  nearest  smaller  integer  will  be  used  (note  that  U.001  and 
ii*  999  will  both  be  taken  as  k)  ,  Memory  space  for  vectors  and  matrices 
must  be  allocated  by  a  special  compiler-directing  command, the  DIMENSION 
statement,  discussed  below, 

2,31  Subscript  Functions 

The  MEAN(Y)  and  MEDIAN(Y)  functions  are  meant  to  operate  on 
expressions  containing  subscripted  variables,  with  one  subscript 
undefined.  The  following,  acre  the  complete  definitions  s 
MEDIAN (Y)  means  a.  If  Y  has  no  free  subscripts,  MEDIAN(Y) =  Y, 

b.  If  Y  has  one  free  subscript,  then,  if  the  values 
of  Y  be  arranged  in  order  of  magnitudes 

(1)  If  the  greatest  value  of  the  subscript  is  odd, 
MEDIAN (Y)  is  equal  to  the  value  in  the  central 
position, 

(2)  If  the  greatest  value  of  the  subscript  is  even, 
MEDIAN (Y)  is  equal  to  the  mean  of  the  two 
values  surrounding  the  central  position. 
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c.  If  I  has  more  than  one  free  subscript, 
MEDIAN(Y)  =  0, 


MEAN(Y)  means  a. 


If  I  has  no  free  subscripts,  MEAN (Y) =  Y, 


b.  If  Y  has  one  free  subscript,  then  if  n  is 
the  greatest  value  of  this  subscript, 
MEAN(Y)  -  (Y(l)/Y(2)/  ,../Y(n))/n. 

c0  If  Y  has  more  than  one  free  subscript 

i  iion.i't  V  X  J  5=5  \J* 


An  arithmetic  expression  may  be  used,  as  a  subscript,  provided  the 
variables  used-,  in  that  expression .  all  have  values  at  the  time  of 
evaluation. 

3.  Control 

A  variety  of  statements  are  available  to  control  the  order  in  which 
computations  are  performed,  and  to .facilitate  repetitive  calculations. 

3.1  VARY-statements 

VARY-statements  are  used  to.  repeat  certain  calculations  (or  control 
statements)  with  changing,  values,  of  one  . or  several  variables, 

A  VARY-statement  contains  within,  it. . statements  to  be  repeated.  The 
VARY-statement  and  each  statement.  ..within,  it  must .  end  with  a  semicolon. 

In  addition  to  this,  the.  list  . of  statements,  .to.  be  repeated  must  end  with 
a  period,.  The  semicolon  which  denotes  the  end  of  the  VARY-statement 
comes  after.,  this  period, ..  There  are  two  types  of  VARY-statements  * 
vary-by-steps  and  vary-over-list. 

3.11  Vary-Over-List 

A  VARY-statement  of  the  vary-over-list  type  will  cause  any  specified 
list  of  statements  to  be.  repeated,  with,  a  specified  variable  or  variables 
being  assigned  a  new  value  from  a  list,  for  each  repetition  of  the  list 
of  statements.  A  VARY-statement  of  .this  type  consists  of  the  word  VARY, 
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followed  by  the  variable (s)  to  be  varied  ~  if  there  is  more  than  one, 
they  are  separated  .by  commas  f ollowed  by  the  word  OVER,  followed  by 

the  list  or  lists  of  values  over  which,  the  variable (s)  is  (are)  to  be 
varied,  followed  by  the  word  IN  followed,  by  the  list  of  statements  to 
be  repeated,  followed  by  a  period,  followed  by  a  semicolon.  Remember 
that  each  of  the  statements  within,  the  list  must  also  end  with  a  semi¬ 
colon. 

"variable1*  "list  of  values" 

VARY  or  OVER  or  IN  "statement  list".; 

"list  of  variables"  "lists  of  values" 

The  list  or  lists  of  values  are  given  in  the  following  format.  There 
is  a  separate  list  of  values  for  each  variable..  If  more  than  one  variable 
is  used,  the  separate  lists  should  all.  contain  the  same  number  of  values, 
for  it  is  this  number  which  determines  the,  number  of  times  the  indicated 
statements  are  to  be  repeated.  The  lists  are  each  enclosed  in  parenthesis, 
and  are  given  in  the  same,  order  in  which  the  variables  were  given.  They 
are  not  separated  by  commas;  they,  follow  one  another  directly.  Each  list, 
within  its  parenthesis,  consists  of  a  set  of  values  —  either  numbers  or 
variables  but  not  arithmetic  expressions  —  separated  by  commas.  Any 
variables  used  in  these  lists  of  values  must  currently  have  numerical 
values . 

Examples  % 

VARY  J  OVER  (1,  2,  3,.  h)  IN 
LET  X(j)s  -  3*J;  ,g 

After  execution  of  this  statement,  the  vector  X  would  be: 

(3,  6,  9,  12) 

that  is,  for  the  first  execution  of  the  LET -statement  (in  this  case  the 
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entire  list  of  statements  contains  just  this  one  statement)  J  would  be 
set  to  lj  for  the  second  J  would  be  2j  for.  the  third,  3|  and  for  the 
fourth,  4.  The  vector  X  should  have  been  dimensioned  with  a 
DIMENSION-statement  at  the  beginning  of  .the  program-  The  first  semi¬ 
colon  ends  the  LET-statementj  the  period  ends  the  statement  list j  and 
the  following  semicolon  ends  the  VARY-statement  <> 

VARY  K,  M,  N  OVER  (2,  3,  i+) (A,  B,  C)(l.6,  1.7,  1.8)  IN 
LET  X(K)  s  “  X((K=*  1))/Nj 
LET  Y(K) %  =  M*X(K)|  . 

This  statement  would  result  in  the  following  two  vectors, 

X:  (R,  R/1.6,  R/((l.6)(l.7))#  R/( (1.6) (1.7) (1.8))) 
where  R  was  previously  given  a  value,  and 

Ys  (Y(l),  AR/1.6,  BR/((k,6)(l.7)),  CR/((1.6) (1.7) (1.8))) 
where  Y(l)  remains  whatever  it  was  before  the.  execution  of  this  state¬ 
ment.  A,  B,  and  G  must  have  been  assigned  values  before  this  statement 
was  reached- 
3.12  Vary-by-Steps 

A  VARY-statement  of  the  vary-by-steps  type  will  cause  any  specified 
list  of  statements  to  be  repeated,  with  a  specified  variable  being 
incremented  or  decremented  by  a  certain  amount  for  each  repetition. 

A  VARY-statement  of  this  type  consists  of  the  word  VARY,  followed  by 
the  name  of  the  variable  to  be  incremented,  followed  by  the  word  FROM, 
followed  by  the  desired  value  of  the  variable  for  the  first  execution 
of  the  statement,  followed  by  the  word  BY,  followed  by  the  amount  of 
the  increment,  followed  by  the  word  UNTIL,  followed  by  the  final  value 
the  variable  is  to  attain,  followed  by.  the  word  IN,  followed  by  the 
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list  of  statements  to  be  repeated .  The  punctuation  following  this  list 
is  the  same  as  for  a  vary  over  list  VARY -statement. 

VARY  ''variable"  FROM  "lower  limit"  BY  "increment"  UNTIL  "upper  limit" 

IN  "statement  list"./ 

The  quantities  to  be  specified/  initial  value,  increment,  and  final 
value,  may  be  expressed  as  numbers  or  variables,  provided  any  variables 
so  used  have  numerical  values  at  the  time  this  statement  is  executed. 

In  addition,  any  arithmetic  expression  may  be  used  to  specify  these 
quantities. 

Examples  s 

VARY  J  FROM  1  BY  1  UNTIL  k  IN 
LET  X(J)s  =  3*Jj  ./ 

This  would  yield  the  same  result  as  the  first  example  in  3.11. 

In  order  to  help  make  the  vary  statements  more  readable,  a  comment 

consisting  of  any  symbol  string  not  containing  a  semicolon  may  follow 

the  period  and  preceed  the  semicolon.  For  example: 

VARY  X  FROM  2  BY  1  UNTIL  N  IN 

VARY  I  FROM  1  BY  1  UNTIL  (X-l)  IN 
LET  Z(X,  I)  s  =  X/l, 

Z(I,  X)  s  SX#I/  »  end  I  loop/ 

LET  Z((X-l),  (X-l))s=X~l/  .  end  X  loop/ 

This  would  create  a  matrix  Z  of  order  N  wherein  any  entry  below  the  major 

diagonal  would  be  the  sum  of  the  subscripts  of  that  entry/  any  entry  above 

the  major  diagonal  would  be  the  product  of  its  subscripts/  any  entry  on 

the  major  diagonal  would  be  one  of  its  two  equal.. subscripts.  Notice  that 

this  statement  fails  to  assign  a  value  to  Z(N,N).  The  VARY-statement, 
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like  any  other  statement*  can  be  used  in  the  statement  list  of  a 
VARY-statement.  No  computation  or  other  statement  within  the  range  of 
a  VARY-statement  should  ever  change  the  value  of  the  variable  being 
incremented  by  that  statement,.  When  nesting  one  vary  statement  within 
another*  one. must  be  particularly  careful  of .  the  punctuation.  In  the 
above  example*  if  the  second  LET-statement  had  .been  omitted  and  both 
VARY-statements  had.  ended. with,  the  first.  LET-statement,  the  punctuation 
following  it  would  have  been  as  follows. 

j„ j  oj  (excluding  the  comments) 

The  first  semicolon  ends  the  LET -statement*'  the  first  period  ends  the 
statement  list  of  the  second*  or  "inner1'  VARY-statement ;  the  second 
semicolon  ends  the.  inner  VARY-statement j  the  second  period  ends  the 
statement  list  of  the  first*  or  "outer"  VARY-s t at ement j  the  third  semi¬ 
colon  ends  this  VARY-statement. 

After  a  VARY-statement  has  been  performed*  that  is  after  the  state¬ 
ment  list  has  been,  executed  the  proper  number  of  times,  the  next 
instruction*  in  the  statement  sequence  is  executed. 

3.2  Transfer  Statements 

A  transfer  statement  is  a  statement  which  alters  the  sequence  of 
execution  from  sequential  order.  In  order  that  statements  within  a 
program  may  be  easily  referred  to,  and  for  mnemonic  purposes*  it  is 
possible  to  label  a  statement  by  assigning  a  name  to  it.  It  is  legitimate 
to  label  one  or  several  statements  without  labeling  them  all.  The  only 
place  a  statement  label  is  required  is  where  it  is  referred  to  by  a 
transfer  statement,  as  described  below.  To  name  a  statement*  one  precedes 
the  statement  by  a  statement  label  followed  by  a  colon.  A  statement  label 
is  any  string  of  letters  and  digits,  which  begins  with  a  letter. 


83 


3»21  Unconditional  Transfers 

There  are  two  types  of  unconditional,  transfers,  both  of  which  un¬ 
conditionally  transfer  control  to  the  indicated  location,  A  location 
is  either  a  statement  label,  or  a  procedure  (discussed  in  section  ii.l). 

3.211  GG  TO-statements 

A  GO  TO-statement.  is  of  the  following  ..form:  the  words  GO  TO, 
followed  by  a  location  (a  statement  label  or  a  procedure  call),  followed 
by  a  semicolon.  It  has  the  effect  of  immediately  transferring  control  to 
the  indicated  statement  or  procedure.  For  example: 

GO  TO  B76Yj 

would,  as  soon  as  it  was  reached,  transfer  control  to  the  statement 
labeled  B76Y. 

3.212  HALT-statements 

A  HALT-statement  consists  of  the  word  HALT,  folloxvred  by  a  location, 
followed  by  a  semicolon.  Its  function  is  identical  to  that  of  a 
GO  TO-statement,  except  that,  computer  will  stop  before  transferring. 

3.22  Condition  statements 

It  is  possible  to  make  the  flow  of  a  program  conditional  upon 
certain,  arithmetic  conditions.  These  arithmetic  conditions  are  of  the 
form:  an  arithmetic  expression,  followed  by  a  relation,  followed  by 
another  arithmetic  expression.  The  relation  is  one  of  the  following  six: 

=>  >>  ^ 

Some  examples  of  conditions : 

A>B 

D(2,  3)  <12 

J-k*2/-1 
3=  (A+B(J)) 

SIN  (THETA *2*PI)  ^  C0S(0MEGA/2*PI) , 
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A  condition  statement  is  of  one  of  two  forms.  The  first  type  consists 
of  the  word  IF,  followed  by  a  condition  or  a  combination  of  conditions, 
followed  by  t.he  word  THEN,  followed  by  a  list  of  statements  to  be 
performed  if  the  specified  conditions  are  satisfied  (if  the  conditions 
are  not  satisfied,  the  statement  after  the. condition  statement  is 
performed  next) , 

IF  ”cond.ition(s)”  THEN  ’’statement  list”,/ 

This  statement  list  is  of  the  same  form  as  for  a  VARY-statement : 
each  statement  ends  with  a  semicolon,  the  list  ends  with  a  period,  which 
may  be  followed  by  a  comment  (the  comment  may  not.  contain  a  semicolon), 
and  the  condition  statement  itself  ends  with  a  semicolon. 

The  other  type  of  condition,  statement  consists  of  the  word  IF, 
followed  by  a  condition  or  a  combination  of  conditions,  followed  by 
the  word  THEN,  followed  by  a  list  of  statements  to  be  executed  if  the 
the  conditions  are  satisfied,  followed  by  the  word  ELSE,  followed  by  a 
list  of  statements,  to.  be  performed  if  the  conditions  are  not  satisfied, 
followed  by  a  period  (in  a  condition  statement  of  this  type,  the  first 
statement  list,  after  the  word  THEN,  is  not  followed  by  a  period)  and  a 
comment  if  desired,  followed  by  a  semicolon, 

IF  ”condition(s)H  THEN  ’’statement  list”  ELSE  ’’statement  list”,; 

It  is  possible  to  combine  conditions,  merely  by  separating  them 
by  the  word  OR,  in  which  case  the  combined  condition  is  considered  to 
be  satisfied  if  and  only  if  one  or  more  of  its  component  conditions  is 
satisfied.  It  is  also  possible  to  combine  conditions,  by  separating 
them  by  the  word  AND,  so  that  the  combined  condition  is  satisfied  if 
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and  only  if  all  the  component  conditions  are  satisfied.  Any  number  of 
conditions  may  be  strung  together  in  either,  or  a  combination  of  both, 
of  these  two  ways.  Any  group  of  conditions  connected  by  the  word  AND 
(or  by  several  AND*s)  should  be  enclosed  in  parenthesis. 

Examples  s 

IF  (A > B  AND  C<D+l)  OR  (A  85  0  AND  D-1<0)  THEN 
GO  TO  S3,* 

ELSE  LET  Ds  *  D+l 
GO  TO  Sl*j 

Notice  that  the  above  condition  combination  is  changed  if  the  parenthesis 
are  placed  differently! 

IF  (A >B  AND  C<D+1  OR  A  =  0  AND  D-1<0)  THEN  etc. 

is  satisfied  if  A>B  and  D-1<0  and  either 
0<D+1  or  A  =  0, 

IF  I>K  THEN 

IF  J>I  THEN 

LET  Ij-  I  +  lj  .f 
ELSE  IF  J>I  THEN 
LET  Is  -  J  } 

ELSE  LET  Is=K;  ,j 

3.3  Dummy  Statements 

A  dummy  statement  is  a  convenience  sometimes  used  for  ending  a  vary 
statement  list  or  a  subroutine.  A  dumny  statement  is  always  labelled, 
and  is  usually  referred  to  by  at  least  one  transfer  statement  and  serves 
as  an  exit  point,  for  example 

VARY  INDEX  FROM  LLIM  BY  INCR  TO  ULIM  IN 
IF  THING  >27.3  THEN  GO  TO  ENDj 
LET  THING:  =  THING  +  ALPHA  (INDEX/3); 

END: | 
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In  this  case  the.  dumrny  statement  END :  ;  gives  a.  place  to  jump  to 
within  the  VARY  loop  just  in  case  the  value  of  THING  is  greater  than  27<>3“ 
I4.0  Compiler  Directing  Statements 
hoi  DIMENSION  Statement 

At  the  beginning  of  a  program,  one  must  state  the  maximum  size 
attained  by  each  vector  (one  subscript)  or  matrix  (two  subscripts) « 

This  is  done  by  means  of  a  DIMENSION-statement.  A  DIMENSION-statement 
consists  of  the  word  "DIMENSION",  followed  by  the  name  of  a  variable 
(a  vector  or  a  matrix  only),  followed  —  in  parenthesis  —  by  the  maximum 
value(s)  its  subscript (s)  can  attain,,  This  maximum  value  (or,  these 
values)  are  expressed  as  unsigned  integers.  A  DIMENSI ON-statement  ends 
with  a  semicolon „ 

Example  3 

DIMENSION  A (5,  103); 

DIMENSION  B(7); 

DIMENSION  A (5,  103),  B(7),  X2Z(3,  2),  SUM(3); 

The  first  of  these  statements  defines.  A  as  a  matrix  whose  maximum  size 
is  3^103.  The  second  defines  B  as  a  vector  of  maximum  order  7.  The 
third  does  both  of  the  above,  and  also  defines  X2Z  as  a  3x2  (maximum) 
matrix,  and  SUM  as  a  vector  of  (maximum)  order  3.  One  may  combine  any 
number  of  matrices  and  vectors,  in  any  order,  into  one  DIMENSI  ON-statement 
by  separating  them  by  commas,  and.  ending  the  statement  with  a  semicolon, 
k»2  REFER  Statement 

The  REFER  statement  has  two  uses.  It  allows  the  name  of  a  variable 
or  set  of  variables  to  be  changed;  and  it  allows  a  set  of  simple  variables 
to  be  combined  into  a  single  vector.  As  a  special  case  of  the  first  of 
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these,  it  also  allows  one  to  assign  names  to  constants,  and,  thus,  to 

assign  values  —  as  for  initialization  —  to  constants,,  Examples  % 

REFER  TO  A  AS  B | 

REFER  TO  F(l,  2)  AS  G* 

REFER  TO  A  AS  B  AND  GRMP  AS  C| 

REFER  TO  J(3)  AS  Kj 

REFER  TO  GRMP  AS  C,  A  AS  B,  SUM  2  AS  SUM  3  AND  RDC  AS  Ij 

REFER  TO  A  AS  B  AND  F(l,  2)  AS  Gj 

REFER  TO  3.0  AS  Xj 

REFER  TO  F(l,  2)  AS  G,  J(3)  AS  K  AND  A  AS  B; 

REFER  TO  A  AS  B,  GRMP  AS  C,  3oO  AS  X,  SUM2  AS  SUM3,  7  AS  Z  AND  RDC  AS  I,* 

These  are  all  examples  of  the  first  use  of  the  REFER  statement.  No  variable 

should  appear  more  than  once  during  any  REFER  statement.  A,  GRMP,  SUM2,  may 
be  either  simple  variables,  or  arrays.  Their  equivalents  are  assigned  the 
same  dimension  as  the  original.  When  a  simple  variable,  a  vector,  or  an 
entire  matrix  is  renamed,  the  original,  name  becomes,  undefined,  and  may  be 
reassigned.  When  more  than  two  pairs  are  given,  in  a  REFER  statement,  all 
but  the  last  two  are  separated. by  commas.  The  last  two  are  separated  by 
"AND"  which  is  not  preceded  by  a  comma.  If  a  number  is  used,  it  must  be 
as  the  first  half  of  a  pair.  The  statement  must  end  with  a  semicolon.  The 
second  use  of  the  REFER  statement  is  to  define  vectors? 

REFER  TO  X(l,l),  1(2,  3),  Z(3),  ALPHA,  13.7£  AS  Vj 
ALPHA  must  be  a  simple  variable.  V  must  have  been  previously  dimensioned 
by  a  DIMENSION  statement.  Commas  separate  all  values,  and  the  word  "AND" 
is  not  used. 

Comments 

Any  string  of  symbols  not  containing  a  semicolon  may  be  included  in 
the  program  in  a  statement  which  consists  of  the  word  COMMENT  followed  by 
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the  symbol  string  and  ending  with  a  semicolon-  This  may  be  used  for 
adding  explanatory  comments  within  the  body  of  a  program.  These  comments 
will  be  printed  in  the  output  listing  but  will  not  affect  the  program  in 
any  way. 

6.  Code 

In  certain  cases  it  might  be  efficient  to  include  in  a  program  a 
block  of  machine  language  (symbolic  or  numeric)  coding.  This  may  be  done 
(so  long  as  the  block  does  not  contain  the  string  ENDj  by  prefixing  the 
block  with  CODE  and  finishing  it  with  END  followed  by  a  semicolon. 

7.  Procedures  and  Programs 

Within  a  program,  groups  of  statements  are  blocked  into  procedures 
and  a  procedure  may  serve  as  a  routine  or  as  a  subroutine.  A  complete 
program  begins  with  the  word  START  which  serves  to  inform  the  compiler 
that  a  complete  program  follows.  The  program  ends  with  STOP  which  informs 
the  compiler  that  the  run  is  over.  Between  these  delimiters  may  appear 
one  or  more  procedures  each  of  which  begins  with  PROCEDURE  and  ends  with 
END. 

7.1  Structure  of  a  Procedure  Heading 

Each  procedure  begins  with  a  heading  of  the  following  form. 

PROCEDURE  "procedure  name"  ("parameter  list"), ("subroutine  list")| 

The  procedure  name  is  a  symbol  string  that  starts  with  a  letter  and 
serves  to  identify  the  procedure.  It  increases  the  efficiency  of  the 
final  program  if  the  names  of  the  libraxy  subroutines  to  be  used  in  the 
procedure  body  are  listed  in  the  heading  in  the  subroutine  list.  If 
none  are  to  be  used,  this  list  is  left  blank. 
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Frequently  procedures  are  defined  for  use  as  subroutines  and  as 
functions  of  one  or  more  variables  or  parameters.  In  these  cases,  the 
parameters  that  must  be  set  before  (or  upon)  input  to  the  subroutine 
are  listed  in  the  heading.  If  there  are  no  parameters  this  list  may  be 
left  blank. 

Example  of  procedure  heading 

PROCEDURE  SUMMATION  l(n,  x),  (SIN)/ 

n 

this  heading  might  be  a  subroutine  which  computes  the  value  of  sin(nx) 

1 

and  leave?  the  result  in  x,  "n"  and  "x"  are  the  parameters  to  be  set 
upon  input  and  SIN  is  the  only  subroutine  used, 

7,2  Executing  Subroutines 

When,  within  a  routine,  it  is  desired  to  execute  a  subroutine  and 
EXECUTE  statement  is  used.  This  consists,  of  the  word  EXECUTE,  followed 
by  the  name  of  the  subroutine,  a  list  of  either  values  of  parameters  or 
a  list  of  locations  where  the  values  can  be  found,  ending  with  a  semi¬ 
colon,  E,g. 

EXECUTE  SUMMATION  l(m,  arg)j 
EXECUTE  SUMMATION  1(27,  vee)j 
EXECUTE  SUMMATION  l(3k,  10.7 k) f 

are  all  calls  on  the  SUMMATION  1  subroutine. 

The  first  example  will  enter  the  subroutine  with  the  address  of  "m,! 

replacing  the  dummy  variable  "n"  and  the  address,  of  ”arg"  replacing  the 

dummy  variable  lfx" ,  The  result  will  be  placed  in  location  "arg",  In 

the  second  case,  the  value  27  will  replace  "n"  and  "vee"  will  replace 

"x”.  In  the  third  case,  3k  will  be  used  .for  n  and  10,75  for  x„ 


92 


N.B. s  The  result  in  case  3  will  never  be  used,  for  after  the  computation, 
the  result  will  be  stored  in  the  location  where.  10.73  used  to  be  but,  not 
having  been  given  a  symbolic  name,  it  can  never  be  referred  to  again. 
Program  Structure 

A  compiled  program  always,  begins  running  at  the  first  statement  of 
the  first  procedure  in  the  program.  "Within  a  procedure  transfers  (by 
means  of  GO  TO)  may  be  made  to  any  labelled-statement  or  to  the  beginning 
of  any  other  procedure  in  the  program.  Once  a  procedure  has  been  left, 
by  a  GO  TO,  return  may  be  made  only  to  the  beginning  of  the  procedure.  If, 
however  a  procedure  is  left  by  an  EXECUTE  control  will  be  returned  to  the 
statement  following  the  EXECUTE  after  the  executed  subprocedure  has  been 
operated. 

Inter-routine  communication 

It  should  be  emphasized,  that  there  is  no  way  to  communicate  between 
routine  and  subroutine  except  by  procedure  heading  parameters.  I.e, 
symbolic  addresses  used  in  more  than  one. routine  will  be  assigned  different 
numeric  addresses  and.  will,  in  general  have  different  values. 

Sample  Program 
START 

PROCEDURE  COMPLEX  POLYNOMIAL  EVALUATION  (  ),  (ENTIER) ; 

COMMENT  This  procedure  has  no  parameters  and  uses  the  ENTIER 
subroutine.  It  reads  in  values  of  a^,  a,,,  a^,  x, 

2  N~1 

y  and  N.  computing  the  function  a. +a^.z+a0z  +«»«a  Z  =w 

1^3  n 

where  z  =  x+  jy  and  w~  u+  jv.  If  N  is  not  a  positive 
integer  0^N^2l,  or  if  |w|>10-*-0  an  error  printout 
followed  by  an  absolute  halt  will  occur.  If  no  error, 


the  result  will  be  printed  and  the  computer  will  halt. 
If  "start  compute"  is  depressed,  after  print  of  w,  new 
x,  y  and  N  will  be  read  and  a  new  w  confuted. } 


DIMENSION  1(21),  B(10j 

REFER  TO  B(l)  AS  Y,  B(2)  AS  Y  AND  B(3)  AS  Nj 
EXE'CUTE  READ  (21,  A)j 

COMMENT  procedure  READ  (n,  v)  is  assumed  to  be  a  machine  language 
subroutine  that  reads  n  values  into  the  previously- 
dimensioned  vector  V) 

INPUT;  EXECUTE  READ  (3,  B) ; 

IF  N5$0  OR  N>21  OR  N RENTIER  (N)  THEN 
GO  TO  ERROR  (  );  .  CHECK  ON  N; 

COMMENT;  ERROR  is  a  procedure  with  no  input  parameters 
LET  us  =  a(l),  vs  =  0| 

VARY  i  FROM  1  BY  1  UNTIL  N  IN 

EXECUTE  COMP  EXP  INT  (x,  y,  i-1,  xl,  yl); 

EXECUTE  COMP  MULT  (a(i),  0,  xl,  yl,  xl,  yl),» 

EXECUTE  COMP  ADD  (u,  v,  xl,  yl,  u,  v);  . 

THIS  LOOP  HAS  COMPUTED 

ws  a^z'  j 
1 

IF  SQRT  (u*u+  v*v)  10**10  THEN 
GO  TO  ERROR  (  ),• 

EXECUTE  PRINT  (u,  v)| 

COMMENT  procedure  PRINT  (a,  b)  is  assumed  to  be  a 
machine  language  subroutine  that  prints  a  (signed) 
followed  by  b (signed)  followed  by  the  letter 
E<,g„?  +10-37j.,° 

HALT  INPUT | 


END 

PROCEDURE  COMP  ADD  (a,  b,  c,  d,  e,  f),  (  ),° 

LET  es^a+c,  f j  =  b+d$ 

COMMENT  This  subroutine  computes  e+jfs=  (a+jb)+(c+jd) j 
END 
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PROCEDURE  COMP  MULT  (a,  b,  c,  d,  e,  f),  (  ); 

LET  e  s  ®  a*c  -  b-*d,  f  i  =  b#c  +  a*d; 

COMMENT  This  subroutine  computes  e+jf j  =  (a+ jb)*(c+jd) j 

END 

PROCEDURE  COMP  EXP  INI  (a,  b,  n,  c,  d),  (  ); 

LET  eg  =  1,  d§  =  0; 

VARY  m  FROM  1  BY  1  UNTIL  n  IN 

EXECUTE  COMP  MULT  (a,  b,  c,  d,  c,  d); 

COMMENT  This  subroutine  computes  (c+jd) s *  (a+jb)n 
where  n  is  an  integer „  If  n  is  negative  the 
program  will  cycle.  If  n  is  not  an  integer, 
the  nearest  smaller  integer  will  be  used; 

END 

PROCEDURE  READ  (n,  V) ,  (  )  ; 

CODE  ....  END | 

END 

PROCEDURE  PRINT  (a,  b),  (  )/ 

CODE  o  o  o «  END  ; 

END 

PROCEDURE  ERROR  (  ),  (  ); 

CODE  .... 

HALTS  HALT  HALT; 

COMMENT  The  odd  looking  thing  one  line  above  is 
a  self-addressed  halt  loop; 

END 

STOP 
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Appendix  $  -  Part  II 
Setting  External  Equipment 


The  Analog-Digital  Converter, 

The  range  of  the  ADC  can  be  set  by  either  of  the  following  commands s 

SET  ADC  TO  IV  SCALE* 

SET  ADC  TO  10V  SCALE,* 

If  the  high  speed  mode  is  desired,  the  phrase  ",  HIGH  SPEED  (X.  DECREES") 
(where  X  is  some  integer,  usually  a  multiple,  of  t-en)  may  be  inserted  before 
the  semicolon,,  The  number  of  degrees  in  the  parenthesis  determines  the 
setting  of  the  crankshaft.  If  X  is  not  a  multiple  of  10,  it  is  taken  to  be 
the  nearest  multiple  of  10  smaller  than  the  given  value. 

Examples  § 

SET  ADC  TO  IV  SCALE,  HIGH  SPEED  (110  DEGREES)* 

SET  ADC  TO  10V  SCALE,  HIGH  SPEED  (20  DEGREES) * 

Output  lines. 

A  voltage  can  be  put  on  an  output  line  by  a  statement  of  the  following 

sorts 

SET  £ „ddd  TO  X  VOLTS* 

where  JJ.ddd  is  a  code  to  identify  a  line  consisting  of  a  letter  followed 
by  a  period  followed  by  a  three  digit  number  (A. 003,  B.227,  etc.)  and  X  is 
a  number.  If  a  statement  is  used  that  has  an  .undefined  line  identifier 
(i,e0  there  is  no  line  corresponding  to  the  given  identifier)  the  compiler 
will  not  accept  the  statement.  If  a  voltage  is  specified  that  is  not  avail¬ 
able,  the  nearest  voltage,  smaller  in  magnitude,  will  be  used. 

Examples 

SET  C.003  TO  -10  VOLTS* 


96 


The  EPUT  Meter. 


There  are  many  settings  that  must  be  made  in  programming  the  EPUT 
meter.  These  have  been  combined  into  one  lengthy  statement,  however,  for 
the  sake  of  brievity  certain  portions.,  may  be  omitted,,  The  statement  used 
to  set  the  EPUT  meter  is  of  the  following  forms 

SET  EPUT  mode,  N=XS  M=Y,  delay,  slope  DAI,  slope  DA2, 
slope  DA3  THEN,  slope  DA3,  DA3“  Z  VOLTS; 

The  "mode1'  portion  may  be  MA,  MB,  MC,  MD,  ME,  MF  or  MG.  It  may  not  be 

omitted. 

The  "N*X, "  portion  is  called  the  A -setting  and  X  may  be  either  a 
number  or  a  variable.  If  the  A-setting  is  omitted  entirely,  N  is  set 
equal  to  zero.  Similarly  the  "M*Y, "  portion  is  called  the  B-setting, 

Y  may  be  any  number  or  variable  and  if  "M-  Y, "  is  omitted,  M  will  be  equal 
to  zero. 

The  delay  portion  is  used,  to  determine  whether  delayed  or  immediate 
operation  is  desired.  If  delay  is  wished  "D"  is  written.  If  immediate 
operation  is  to  be  used,  the  "D"  and  the  following  comma  are  deleted. 

Each  of  the  three  amplifiers  must  have  a  slope  set  for  its  input. 

This  is  done  by  putting  or  for  "slope"  before  "DAI",  "DA2"  and 
"DA3W.  It  is  possible  to  omit  any  or  all  of  the  slope  parts,  in  which  case 
the  omitted  slope (s)  will  be  positive.  In  the  case  of  MD,  it  may  be  desired 
to  reset  the  slope  of  DA3  during  operation.  In  this  case  the  "THEN,  slope 
DA3"  is  used.  This  portion  must  be  omitted  for  modes  other  than  MD  and  in 
Mode  MD,  may  be  omitted  if  the  slope  of  DA3  is  to  remain  unchanged. 

The  final  setting  is  of  the  threshold  of  the  DA3  amplifier  which  is 
set  by  the  "DA3-  Z  VOLTS"  part  of  the  statement.  Z  may  be  any  number  and 
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if  this  part  of  the  statement  is  omitted  the  threshold  will  be  the  same  as 
the  previous  setting  within  the  program.,,  (Cautions  If  a  SET  EPUT  statement 
without  a  threshold,  specification  is  used  , and.  there  was  no  previous  setting 
of  the  threshold,  the  value  will  be  undefined) 

Examples  8 

SET  EPUT  Id,  N-  128,  M-  32,?68,  D,  +  Ml,  -  M2, 

-  DA3  THEN,  +  M3,  M3SS-10  VOLTS# 

SET  EPUT  M,  N=  2000# 

SET  EPUT  MB,  M=  12?63,  -  Ml,  -  M3# 

SET  EPUT  ME,  N  =  100,  M~  200',  D,  -  DA3# 

SET  EPUT  ME,  N“  20£6,  D,  -M2,  M3“=  26  VOLTS# 

Relay  Inputs. 

It  is  possible  to  read  a  series  of  values  from  relay  inputs  into 
the  computer  memory*  This  statement  is  of  the  forms 
READ  something  INTO  somewhere# 

where  the  ’’something*1  is  an  input  relay  name  or  list  of  names  and  the 
’’somewhere"  is  a  vector  which  must  previously  have  been  dimensioned* 

The  "something"  may  take  any  of  the  following,  forms  or  may  be  a  list 
of  as  many  as  are  needed  (separated  by  commas) 8 
GROUP  (group  number) 

GROUPS  (group  number,  group,  number,  «*»,  etc*) 

RELAY  (relay  number) 

RELAYS  (relay  number,  relay  number,  ***,.  etc*) 

A  group  number  is  a  one  or  two  digit  integer  while  a  relay  dumber 
is  a  one  or  two  digit  integer  followed  by  a  period,  followed  by  an  integer 
from  1  to  8. 
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The  "somewhere"  can  be  of  the  form; 

vector  name  (integer) 
vector  name  (integer,  FF) 

The  vector  name  can  be  any  s.tring  of  letters  and  digits  (beginning  with  a 
letter).  In  the  first  case,  a  single  value  is  read  into  a  single  entry  in 
the  vector.  In  the  second  case,  several  values  are  read  in  and  the  integer 
specifies  the  location  of  the  first  value.  The  ",FF"  is  for  typographical 
purposes  and  means  "and  the  following".  It  is.  not  necessary  and  may  be 
omitted  at  will. 

Examples  s 

READ  RELAY  (29.2)  INTO  FOOF  (28) j 

READ  RELAYS  (8.3,  8.U,  29.1)  INTO  FOOF  (25,FF); 

READ  GROUP  (l)  INTO  FOOF  (l,FF),» 

READ  GROUPS  (2,3)  INTO  FOOF  (9,FF)j 

READ  (ROUPS  (1,2,3),  RELAYS  (8.3,  8.U,  29.1,  29.2) 

INTO  FOOF  (l,FF) ; 

The  following  two  statements  are  equivalent  although  the  second  is 
more  efficient 

READ  GROUPS  (1,2),  RELAYS  (3.1,  3.2,  3.3,  3.U, 

3.3,  3.6),  RELAY  (3.7),  RELAY  (3.8),  GROUP  (h) 

INTO  GBW  (7,FF)j 

READ  GROUPS  (l,2,3,U)  INTO  GBW  (7,FF)| 

If  a  relay  or  group  is  named  that  does  not  exist,  the  compiler  will 
give  an  error  indication.  If  a  vector  is  used.  that,  is,  either  undimensioned 
or  is  too  small,  the  program  will  give  an.  error  indication  at  run  time. 
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Switch  Opening  and  Closings 


There  are  a  series  of  toggle  switches  which  are  identified  by  numbers 
and  may  be  opened  or  closed  under  computer  control.  The  following  statements 
will  achieve  this  purposes 

OPEN  SNITCH  switch  number; 

CLOSE  SNITCH  switch  number; 

The  switch  number  may  be  any  integer  but  if  a  switch  is  named  that 
does  not  exist,  the  compiler  will  indicate  an  error. 

Typeouts  During  Program  Running. 

It  is  possible  to  define  and  use  standard  typeouts  during  the  oper¬ 
ation  of  a  program.  These  standard  typeouts  are  given  numbers  when  they 
are  defined  and  the  statements  .TYPEOUT  integer;,  will  cause  the  typeout 
message  identified  by  that  integer  to  be  typed  out.  It  is  also  possible  to 
typeout  the  current  value  of  a  variable  using:  TYPEOUT  (variable);  „  For 
brief  symbolic  typeouts,  the  symbol  string  to  be  typed  can  be  placed  in  the 
statement  itself,  enclosed  in  single  quotes s  TYPEOUT  ‘string1; 

The  various  typeouts  may  be  combined  in  a  single  statement. 

Examples  s 

We  might  have  defined  typeout  37  as  "The  current  value  of"  and  if 
we  wish  to  type  "The  current  value  of  Z(l.l)  is  ..."  (where  ...  means  the 
actual  value  of  Z(l,l))  we  write 

TYPEOUT  39  'Z(l,l)  is'  (Z(l,l))j 
If  typeout  2  is  "Calibrate  temp,  probe?"  the  statement 
TYPEOUT  2  (i)j  will  print  the  typeout,  followed  by  the 
value  of  the  variable  i. 
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To  define  standard  typeouts  a  statement  of  the  form?  DEFINE  TYPEOUT 
number  AS  symbol  string/  is  used-  Several  typeouts  can  be  defined  in  the 
same  statement . 

For  exanple? 

DEFINE  TYPEOUT  1  AS  »F00F% 

TYPEOUT  h  AS  'Gratch  is  nit.*, 

TYPEOUT  3  AS  »X(3,U)“ 

It  is  important  to  note  that  the  symbol  string  must  not  contain  single 
quotes  ( * )  o 
Delays  » 

Since  the  programs  put  together  with  this  compiler  will  have  to  run 
in  real,  time,  there  might  be  times  when  it  would  be  useful  to  have  the 
computer  wait  a  fixed  amount  of  time  while  seme  external  event  is  occurring. 
The  statements  DELAY  number  SECONDS/  where  "number"  is  any  positive  number 
will  cause  the  computer  to  delay  that  amount  of  time  before  continuing. 

Another  type  of  DELAY  might  be  useful..  The  EPUT  meter  reads  directly 
into  the  accumulator  of  the  computer  and.  the  statement  "DELAY  FOR  EPUT/" 
would  make  the  computer  delay  until  the  number,  in  the  accumulator  stops 
changing  (i.e.,  until  the  EPUT  has  stopped).  This.,  statement  does  not  appear 
in  the  formal  syntax. 
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Examples  Sample  program  from  the  Controller  Program  Flow  Diagrams 

START  PROCEDURE  TRANSDUCER  CALIBRATION  E,  (ABS,  MEDIAN) 

COMMENT?  Ira  the  procedure  headings  the  E  indicates  that  there  are 
no  input  parameters.  (ABSs  MEDIAN)  indicates  that  the  ARS 
and  MEDIAN  subroutines  are  used? 

DIMENSION  INPUT  (58),  T(3l),  P(5),  D(2)§ 

INTEGER  is  j| 

DEFINE  TYPEOUT  1  AS  'If  calibration  is  required  -  replace  those  probes.', 
TYPEOUT  2  AS  'Calibrate  Temp,  probe 
TYPEOUT  It  AS  'Calibrate  Press,  probe', 

TYPEOUT  5  AS  'START  ENGINE  -  SET  1000  RPM' , 

TYPEOUT  1*0  AS  'Calibrate  velocity  probe '5 
COMMENTS  This  program  is  an  approximation  to  the  transducer 

calibration  flowchart  of  the  controller  flow  diagrams. 

Sll*  SET  ADC  TO  107  SCALE| 

S12.8  READ  RELAY  GROUPS  (1,  2,  3,  it,  5,  7,  8), 

RELAYS  (29.1,  29.2)  INTO  INPUT  (l,FF)j 
Silts  LET  T(l)s=96.0»INPUT(2)  -  313.0, 

T( 26) ss96. 0&INPUT(33)  -  313.0, 

T(  27)  8®96.0»INPUT(3it)  -  313. 0| 

VARY  i  FROM  2  BY  1  UNTIL  2.5  IN 

LET  T(i)s*211.0*INPUT  (i+?)-  328.0?  ,| 

VARY  i  FROM  28  BY  1  UNTIL  31  IN 

LET  T(i)§=83.3*INPUT  (i+2l)  -  3Wi.2j  .$ 

Sl6s  LET  P(  1 )  s  =U90*(  INPUT  (1*2)  -  3.5)7(23.5"  INPUT  (i*2)  )§ 

VARY  i,  a,  b,  3  OVER  ( 2,3,i|,5)(56.5,  37.7,  37.7,  lUl.lt) 

(283,  101.8,  101.8,  381.8)(Ii3,UU,U5,?3)  IN 

LET  P(i)s=a-b/lNPUT(j)|  .5 
Sl8§  LET  V(l)s-  x  % 

V(2)  §=  y  5 

COMMENTS  These  computations  are  not  specified  in  the  flowchart? 
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SllOs  LET  TMED  i  -MEDIAN  (T(i))j 

COMMENTS  i  is  a  dummy  subscript; 

Sll8s  VARY  i  FROM  1  BY  1  UNTIL  31  IN 

IF  ABS  (T(i)  -  TMED) >3  THEN  TYPEOUT  2(i);  .; 

S121s  LET  PMEDs = MEDIAN  (P(i)); 

S129s  VARY  i  FROM  1  BY  1  UNTIL  3  IN 

IF  ABS  (P(i)  -  PMED)  >3  THEN  TYPEOUT  4(i); 

S132*  IF  V(l)<  CONST  THEN  TYPEOUT  1*0;  TYPEOUT  »1»; 

IF  V(2)< CONST  THEN  TYPEOUT  1*0;  TYPEOUT  '2s;  .; 

COMMENTS  The  value  of  11  CONST"  was  not.  specified  on  the  flowchart, 
S13iu  HALT  NEXT; 

NEXT s  TYPEOUT  1; 

SI  36  s  CLOSE  SWITCH  K.009; 

COMMENTS  START  ENGINE; 

Sl37s  CLOSE  SWITCH  Z.009; 

COMMENTS  SET  1000  RPM; 

S138s  TYPEOUT  3; 

S139s  OPEN  SWITCH  K.009; 

SlitOs  OPEN  SWITCH  2.009; 

Slltls  SET  ALPHA  TO  BETA; 

S1U2 :  SET  GAMMA  TO  DELTA; 

COMMENT  8  The  flowchart  says  "NO  LOAD"  for  Slitl  and  "1000  RPM" 
for  S3l*2; 

SII4.3  8  HALT  A2;  END 

STOP 
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Section  B0  Circuit  Analysis  and 
Network  Element  Value  Solvability  Study 


The  work  done  on  this  subject  from  July  1,  l?6l  to  June  30,  1962 
consists  primarily  of  S0  Do  Bedrosian's  PhoD.  dissertation  which  is  attached 
to  this  report. 
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